#!/usr/bin/perl


 use HTML::TableExtract;
 $te = HTML::TableExtract->new( headers => [qw('Account umber' 	'Fraud Transfer' 'Date' 	'Balance' 	
 'No. of Disputes 
 After Transfer' 	'Disputed Dollars After 
 Transfer')] );
 
 $html_string = 'ops_tran_tracking.html';
 $te->parse($html_string);

 # Examine all matching tables
 foreach $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }