perl -we 'BEGIN{$SIG{__WARN__}=sub{($;=shift)=~s;((?<=:.).+(?="));print
$+.$";e}}sub Perl{$_=$::_;map{y,(), ,,$..=$_}split$\;local$,.=chop$.;qq
]$,$.,\n]}$_=$|++||shift;$\=eval;print $Just, "another"' Perl\(hacker\)