my $body_part="";
while(<DATA>) {
chomp($_);
$body_part .= $_;
}

$body_part =~s/^.*?<div id=\"historicalOutput\" .*?>.*<tbody>(.*?)<\/tbody>/$1/sigm;
     my @data = $body_part =~ m/<tr>(.*?)<\/tr>/sigm;
my @consolidated_data=();
       foreach my $newdata (@data) {
         @consolidated_data = $newdata =~ m/<td.*?>(.*?)<\/td>/sigm;

       }