[PERL] Parser file HTML - tag <div>

[MARTEDI]

open (HT,"file.html");
$tr=0;
while (<HT>)
{
if ($tr==1)
{
$data=substr($_,0,10);
$ora=substr($_,11,5);
$tr=0;
}
if ($_ =~ /class=\"dataora\"/) {$tr=1}
}
close (HT);

print "data $data, ora $ora\n";