$ echo '<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="green" height="10"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
<td bgcolor="white"></td>
' | perl -e'
while ( <> ) {
    $start = $. if ?"green"?;
    if ( !/"green"/ && $start ) {
        print "$start-", $. - 1, "\n";
        reset;
        $start = undef;
        }
    }
'
6-10
15-16
[download]