Perl code by minitech - 1 line

Link:

minitech - Perl, pasted on Feb 8:

1	use MIME::Base64;print map chr,map{$c+=ord>128?-((ord)-128):ord;}split//,decode_base64"SiuCAdRBDQEFjIMN0jAVDYbMSIcCCIYNxg"

Output:

1	Just another Perl hacker,