$ perl -wle 'sub foo{}; my $s=""; foo( substr($s,2,1) );print "Not reached\n"' substr outside of string at -e line 1. $