Select Code to Download

#!c:\bin\perl
use warnings;
...

substr outside of string at - line 3.
Use of uninitialized value in print at - line 4.

exit if(length($str)< $index);