http://www.perlmonks.org?node_id=1191255


in reply to Perl, I'm coming home...

$title = join' ',$^X,$self->verb($self->pronoun,'be'),qr/co[md]ing/,'~
+';

while($sheep->return($fold)){
     print "$sheep is returned from the kingdom of nouns.\n";
     if ($sheep{pockets}=~s/$exotic_beans//r){
         warn "$sheep needs some penance!\n";
         $sheep->clean('cloister') for 1..42;
     }
     else{
          eval{print "The compiler is near you again $sheep";}
          $sheep{pockets}=$@ if $@;
     }
     $all_monks->chorus("Welcome back $sheep!\n");
}

[download]

PS for the corious..

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In Section Perl Poetry