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