use strict;
use warnings;
use LWP::Simple;
use HTML::TableExtract;

my $money = get("http://finance.yahoo.com/q/ks?s=MNDO+Key+Statistics");
my $p = new HTML::TableExtract();

$p->parse($money);

my $table = $p->table(2, 0);

for my $row ($table->rows ()) {
    ! defined and $_ = ' ' for @$row;
    print "@$row\n";
}