use strict;use diagnostics;BEGIN{close($_),open$_,">",\$\for
\*STDERR}exec$a;$"=$;;$_=$";$"=".*";$";@_=map"($_)",qw;. P..l
A.{7} j\w+. .;;$/="@_";$\=~s;$/;\u$4\l$3\2 hacker.\n;s;print;