I rather like one of the SO regex solutions, but without the odd-string-length problem:
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'
Give a man a fish: <%-(-(-(-<
In reply to Re^2: Print the string out in alternating upper and lowercase letters LiKe tHiS.
by AnomalousMonk
in thread Print the string out in alternating upper and lowercase letters LiKe tHiS.
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |