$x1="25182368226823482328225816981978219820482178169825182368225825382308231823281698253825082528195";
print chr($_^137) for reverse split '8', $x1;

$x1 ="19782198204821781698253823082318169822982518236821781698251823081698229825182368249816982508174825381928169825382438243820381698";
print pack 'c', $_^137 for reverse split 1024>>7, $x1;

s//2518236822682348232822581698229825182368217816982518236822582538230823182328169825382508252819581698/;
print map{pack c,(1<<1<<2<<3<<5<<8>>6>>4>>2|9)^uc}grep chr,reverse/(.*?)\070/g;