@d=split /\W/,"14-(5+(248<=>27)*0^b-7+(3.4.8))7b+1/27-1";$s=" r\n"; foreach $w (a..z){map{substr $s, hex, 0, $w;} split //,shift @d;} print $s;