поиск и замена нескольких строк в html-файлах

perl

			<tr class="comment">
				<!-- Storing ID of the HTML element that holds Javascript window -->
				<td colspan="3">Storing ID of the HTML element that holds Javascript window</td>
			</tr>

			<tr>
				<td>storeActiveJSWinID</td>
				<td>winID</td>
				<td></td>
			</tr>

			<tr class="comment">
				<!-- Verifying that there is no any present Javascript windows -->
				<td colspan="3">Verifying that there is no any present Javascript windows</td>
			</tr>

			<tr>
				<td>waitForElementPresent</td>
				<td>css=body > div.zpWinThemeFunambol:last-child</td>
				<td></td>
			</tr>

			<tr class="comment">
				<!-- Storing ID of the HTML element that holds Javascript window -->
				<td colspan="3">Storing ID of the HTML element that holds Javascript window</td>
			</tr>

			<tr>
				<td>storeActiveJSWinID</td>
				<td>winID</td>
				<td></td>
			</tr>

#!/bin/sed -rf
\~\s*<tr class="comment">~N
\~\s*<!-- Storing ID of the HTML element that holds Javascript window -->~N
\~\s*<td colspan="3">Storing ID of the HTML element that holds Javascript window</td>~N
\~\s*</tr>~N
\~\s*~N
\~\s*<tr>~N
\~\s*<td>storeActiveJSWinID</td>~N
\~\s*<td>winID</td>~N
\~\s*<td></td>~N
\~\s*</tr>~{
	/^[^\n]*(\n[^\n]*){9}/{
		s/^/FOUND\nLINES\n/
		b
	}
}

(setf узел что-нада)

#!/usr/bin/perl

use strict;
use File::Slurp;

my $fragment = <<EOF;
         <tr class="comment">
            <!-- Verifying that there is no any present Javascript windows -->
            <td colspan="3">Verifying that there is no any present Javascript windows</td>
         </tr>

         <tr>
            <td>waitForElementPresent</td>
            <td>css=body > div.zpWinThemeFunambol:last-child</td>
            <td></td>
         </tr>
EOF

for my $file (@ARGV) {
    $_ = read_file $file or die "$file: $!\n";
    write_file $file, $_ if s;^(?=\s*<tr class="comment">\s+<!-- Storing ID);$fragment;gm;
}