Select Code to Download

use strict;

...
substr($s, $first, $last-$first+length $end) = '<h1>'.substr($s,$first
++length $start,$last-$first-length $start).'</h1>';

print $s;

while(1)
{
...
        last; # $end_pos is good
    }
}