http://www.perlmonks.org?node_id=349512


in reply to Red Perl part I

This fails for me, with "substr outside of string at /tmp/t line 11, <DATA> line 1." (This is perl, v5.6.0 built for darwin.)