#!/usr/bin/perl

use warnings;

open (GREEN,"data.txt");
open (WHITE,"data.txt"); 	
$/ = "</td>";

$counter_white = 0;
$counter_green = 0;

#----------------count number of green---------------------
while ($line_green = <GREEN>) 
{
	if ($line_green =~ /<td bgcolor="green" height="10"><\/td>/){$counter_green++;}
}


#------count number of white (before any green occur)-------------
while ($line_white = <WHITE>) 
{
	if ($line_white =~ /<td bgcolor="white"><\/td>/){$counter_white++;}

	if ($line_white =~ /<td bgcolor="green" height="10"><\/td>/){last;} 	# escape when green starts
}

#---------------------------------------

print "white = ".$counter_white."\n";
print "green = ".$counter_green."\n";

$beginning = $counter_white + 1;
$end = $counter_white + $counter_green;

print $beginning."\n";	# start of green
print $end."\n";	# end of green

print "The result starts from ".$beginning." to ".$end."\n";

close (GREEN);
close (WHITE);