#!/usr/bin/perl -w

use strict;

my $string = <<END;
start
start
start
go
one
end
start
start
start
go
two
end
END

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

##</code><code>##

start
start
start
go
one
end

start
start
start
go
two
end

##</code><code>##

start
go
one
end

start
go
two
end