Sure, that's a whole venerable class of JAPHs.
Here's one (can't claim to be the fist to do it).
$, = ' '; $\ = ',';
eval { &{'Just::&Another::&Perl::&Hacker'} };
print $@ =~ /&(\w+)/g;
--
John Porter
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe