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