while (my $line = <$IN>) {
	   if ( $line =~ /.*MATCH.*/){
	   
		#$ret .= "<tr>$line</tr>\n";  ###This is defined separately and it works,but the color is overwritten when I write next set of lines
		$ret .= <div style="background-color: orange">$line</div>\n;
		}
		$ret .= "  </tr>\n\n";
	       
		}
		   
close $IN;
return $ret;