local $/ = "\nend\n";
while ( my $data = <DATA> ) {
    $data =~ s/^.*start/start/is;
    print $data;
    print '=' x 10, "\n";
}

__DATA__
start
start
start
go
one
end
start
start
start
go
two
end