et en perl

plop

je rajoute du vide pour éviter le décalage de l'avatar

#!/bin/perl
use strict;
while( <STDIN>){
 while ( m/(\w+)(\W*)/g) {
 my ($mot, $sep ) = (1ドル, 2ドル);
 for( my $i = 0 ; $i <= (length $mot) ; $i++){
 if( substr( $mot,$i,1) =~ /[A-Z]/ ) { 
 print uc( substr( $mot, -1-$i, 1 )); 
 }
 else { 
 print lc( substr( $mot, -1-$i, 1 )) ;
 }
 }
 print "${sep}";
 }
}

Il ne faut pas décorner les boeufs avant d'avoir semé le vent