Abuse this!

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;