Your code fragment doesn't run (I suspect -- since there's no ';' after use strict) and you never read the user's input.

Try running the "code fragment" with perl -s - -j=31 or perl -s - -j=33 and you may be in for a surprise :-)

Okay, I am wearing my trickster hat, but I'm surprised you did not see the ';' after use strict ... the indentation alone should give it away. You gotta love the DWIM of Perl though. Even where it is less than intuitive :-)

The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"