@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;
In reply to xyv
by halxd2