Perl code by minitech - 1 line

Link:

minitech - Perl, pasted on Feb 9:

1	sub x{open T,$0;$_=substr<T>,42,25}print "Just another Perl hacker,"if!x;print

Output:

1	Just another Perl hacker,