Select Code to Download

#!/usr/bin/perl -d

use LWP;
...
    die "Failed miserably\n";
}

@_="the journeyman larry disciple keeps learning\n"=~/(.)/gs,
print(map$_[$_-77],unpack(q=c*=,q@QSdM[]uRMNV^[ni_\[N]eki^y@))