@j=unpack'A24'x3, $_='Your mamma so fat it take a train and two busses to get on her goo +d side'; $_='148142210062219227200135214135060215280066149205230143199168163229 +197209'; while(s/[\077|102]\w\d//){my$c;map{s/.//;$c+=ord$&}@j;print chr$c-$&}
Enjoy.
|
|---|