c:\@Work\Perl>perl -wMstrict -le
"my $s = 'like this';
 print qq{'$s'};
 ;;
 $s =~ s{ (.)(.?) }{\U$1\L$2}xmsg;
 print qq{'$s'};
"
'like this'
'LiKe tHiS'