$s = 'fred';;
substr $s, 1,2,undef;;
Use of uninitialized value in substr at (eval 7) line 1, <STDIN> line 2.

print $s;;
fd