$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*