$ perl -wle'$[ = -3; $_ = "abcdef"; print substr($_,0,1)'
Use of assignment to $[ is deprecated at -e line 1.
d