use strict;
use warnings;
my $x="";
substr($x,2,1)="X"; # a fatal errror
print "Alive!\n"; # not reached
__END__
substr outside of string at - line 4.