#!/usr/bin/perl $,=open(O,$0)?$":$;;for(join$\=$/ ,<O>){~~~s{(\w+)}{$$1=$1}ge}print $just, $another, $Perl, $workshop
I haven't got an image of somebody wearing the t-shirt nearby, but I'll add it later if I find one...
-- #!/usr/bin/perl for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
In reply to As seen on the Austrian Perl Workshop T-Shirt by domm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |