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