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