#!/usr/bin/perl
print "Borrower\tactiveDate\tAmount\n";

$Borrower = "null";
$activeDate = "null";
$Amount = "null";
$on = 0;

open(FILE, $ARGV[0]);

while ($line = <FILE>) {          

if ($on eq 0 and $line =~ /<tr/) { $on = 1; }


if ($on eq 1) {
 if ($line =~ /<div(.*?)>Borrower:<\/td>/) {
     $nextline = <FILE>;
	 if ($nextline  =~ /<td(.*?)>(.*?)(\s)/) { $Borrower = $2;}
	 if ($nextline  =~ /<td(.*?)>(.*?)<\/td>/) { $Borrower = $2;}
	 }

 if ($line =~ /(\s)active(\s)date\:<\/td>/) {
    $nextline = <FILE>;
    if ($nextline  =~ /<td(.*?)>(.*?)<\/td>/) { $activeDate = $2;}
    }
 if ($line =~ /<td(.*?)>Amount:<\/td>/) {
     $nextline = <FILE>;
	 if ($nextline  =~ /<td(.*?)>(.*?)(\s)/) { $Amount = $2;}
	 if ($nextline  =~ /<td(.*?)>(.*?)<\/td>/) { $Amount = $2;}
	 }		
	}
	
if ($line =~ /<\/tr>/) {
$on = 0;
if ($Borrower ne "null") {
      print "$Borrower\t$activeDate\t$Amount\n";
             $Borrower = "null";
			 $activeDate = "null";
			 $Amount = "null";
              }
            }
	}
close(FILE);