Select Code to Download

$ perl -wMstrict -le 'my $x=""; print 3+$x;'
Argument "" isn't numeric in addition (+) at -e line 1.
...
3
$ perl -wMstrict -le 'my $x=defined(); print 3+$x;'
3

$ perl -MDevel::Peek -e 'my $x=undef; Dump($x)'
SV = NULL(0x0) at 0x25ea5f8
...
  PV = 0x3f6a860 ""\0
  CUR = 0
  LEN = 10