($SIG{__DIE__},$\,@japh) = (sub{exit}," ",qw!Just another Perl hacker!);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $/="Foo";print $/->Bar while 1