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

##</code><code>##

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