while (my $line = <$fh>)
{
    if($parser->parse($line))