Select Code to Download

#!/usr/bin/perl

...
print "str before = $str\n";
substr($str,$p,length($sub)) = "" unless $p < 0;
print "str  after = $str\n";

#!/usr/bin/perl

...
   substr($str,$p,length($sub)) = "";
   return $str;
}