Select Code to Download

$ perl -e '$s="JustAnotherPerlHacker\n"; $s=~s/(?<=.)(?=[A-Z])/ /g; pr
+int $s'
Just Another Perl Hacker

$s=~s/(?<=\S)(?=[[:upper:]])/ /g

$ perl -e '$s="JustAnotherPerlHacker\n"; @a = split /(?<=\S)(?=[[:uppe
+r:]])/, $s; print "@a"'
Just Another Perl Hacker