Select Code to Download

while ( $string =~ /(start.+?end)/gis ) {
    my $data = $1;
    $data =~ s/^.*start/start/is;
    print $data, "\n\n";
}

start
start
...
go
two
end

start
go
...
go
two
end