$ perl -we'$[ = 3; $_ = "abc"; my $x = substr($_,2,1)'
panic: sv_setpvn called with negative strlen at -e line 1.