Ok I see why I thought it didn't work. I habitually test fragments like this in an eval statement because I have my own home rolled "Interpreted Perl Console"©. In the interpreted console it fails. If I make a trivial perl script it works.

Can anyone explain why it doesn't work in an eval and does work as a program?

#!perl
#this script doesn't work
my $t = <<'EOT' ;
$J=q$JAPH$;print"${";
J}s rule
EOT
print "$t\nResult:\n";
eval $t;

------------------------------

#!perl
#this script works
$J=q$JAPH$;print"${";
J}s rule
[download]

Dingus

---

Enter any 47-digit prime number to continue.