@p=qw(x/bin/perlx yy x v Am_I_Obfuscated_yet xxPerlxHacker x xJoke yySlashdotyy yyy xperlmonksxxx v yy hal@XD3yyyy SolarisLinuxx BSDyyy v yyyy yakyak! xx xViRules yyyUse TheSource!xxx 106);$b=pop@p;sub h{length}sub g{printf"%c",@_};g $b;foreach(@p){$_=~/v/?{g 32}:{$_=~/x/?{$b+=h}&g$b:{$b-=h}&g$b};}g 10;