#!/usr/bin/perl

use strict;
use warnings;
use HTML::TableExtract;

my $te;
my $ts;
my $html_string;
my $filename='1385-AIM-Legal.aspx.html';
my $row;
my $col;
 open(my $fh, '<', $filename) or die "cannot open file $filename";
    {
        local $/;
        $html_string = <$fh>;
    }
    close($fh);


my $headers = ['Phone'];
$te = HTML::TableExtract->new(depth => 2);

$te->parse($html_string);

foreach $ts ( $te->tables() )
{

    foreach $row ( $ts->rows() )
    {

        print join ( "\t", @$row ), "\n";
    }
}


##</code><code>##

Use of uninitialized value in join or string at ./parsehtml.perl line 32.
AIM Legal	
Phone	03 9...setTimeout("document.getElementById('Phone1').innerHTML='03 9482 4607'",1000);
Fax	03 9...setTimeout("document.getElementById('Phone2').innerHTML='03 9482 4607'",1000);
Email	 var s='=b!isfg>(nbjmup;bjnmfhbmAcjhqpoe/dpn(?bjnmfhbmAcjhqpoe/dpn=0b?';var i;for (i=0;i<s.length;i++) document.write( String.fromCharCode(s.charCodeAt(i)-1));
Street Address	 Michael StreetsetTimeout("document.getElementById('Address1').innerHTML='14 Michael Street'",1000);
Fitzroy North. VIC 3065