@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.
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |