$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"); }