#!/usr/bin/perl
$pAr=0; for($rnl=1;
$rnl<4;$rnl++){s;
;io ;;open(ntH,$0)||die;<ntH>;while(
<ntH>){chomp;
$tha=$_;$pAr++;$gNu
="ec";if($Jrk[$pErl]){$pErl.=$rnl}
@Jrk=map{reverse lc $_}qw(Monk I'd Like To Be);$_=~ tr
 u eu Au;{$sPr=~s,rr,r,}
$sPr.=substr(reverse ($tha),-($rnl+1),1);$EOF=
"te";}if($gNu||$EOF){eval $sPr}
s r;,.:rrg;}print"\n";# It's time to appear !