Select Code to Download

#!/usr/bin/perl -w

...
while ($string =~ /(start.+?end)/gis) {
    print $1,"\n\n";
}

start
start
...
go
two
end

start
go
...
go
two
end