in reply to You learn something new every day...

Yes, very nice indeed!

Two comments:

i.e.: $;=sub{print pop},"Just another Perl hacker\n"->$;
-- #!/usr/bin/perl for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}