or download this
# v5.8.3 built for i386-linux-thread-multi:
-bash-2.05b$ perl -le 'print map{chop$$_, $_}\$_, \$_, \$_ for "abc",
+($x="abc")'
...
sidhekin@blackbox:~$ perl -le 'print map{chop$$_, $_}\$_, \$_, \$_ for
+ "abc", ($x="abc")'
Modification of a read-only value attempted at -e line 1.
Attempt to free unreferenced scalar: SV 0x812ec2c.