that's a little tricky, i hope it's somewhat original

@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;
[download]

Oha

Update: i'm not sure if i should put some "explanation" on what's above, and how "spoiler" works (which tag?)