$x = 'Just Another Perl Hacker';

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

print $x;