Got the warning idea from somewhere else (I think Abigail's page of JAPHs). Hopefully, you should be able to copy and paste straight to a prompt.

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

Brandan L.