It is kind of obvious when you unfold the loop, but what is the best abuse of this very deprecated perl feature?
//Makholm #!/usr/bin/perl $japh = pack "C*", 113, 123, 32 .. 122, 125; $_ = q(49 6 8 7 91 26 13 12 7 19 22 9 91 43 22 9 15 91 19 26 24 16 22 9 79); s/ (\d+) \s* /"\x24[=$1; print substr($japh, length($japh), !!$japh)"/eegox;