Select Code to Download

use Scalar::Util 'readonly';

...
  { print "$x ";$x="VAR" unless readonly($x); print $x,"\n"; }
for $x (4, "a", undef)
  { print "$x ";$x="VAR" unless is_const($x); print $x,"\n"; }