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