Select Code to Download

$line = '<!-- USER 20 - donkey_pusher_6 -->';
print $1 if $line =~ m/<!-- USER \d+ - ([^\s]+)/i;

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