Select Code to Download

$x = 'Just Another Perl Hacker';

$x =~ tr/[A-Z]/a-z /;

print $x;

($_='jjjuuusssttt annootthhrer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;