Select Code to Download

$x = 3 + undef;
printf "%s", undef;
undef =~ /./;

$x = expression unexpectedly returning undef.
substr $y, 1, 2, $x;