See here (or choose another modperl mailinglist archive over there)
(It gets more interesting later in the thread...)

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]