Obfuscation is what I prefer in PERL ;)
This is my first attempt in the DarkSide of PERL !
I tried to be original and varied...

#!/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 !
[download]

I'll hope you enjoy it !

Update: Correction to add the shebang.

BoBiOne KenoBi ;)