open(DATA,"c:/MLB_boxscore.TXT") or die "Can't open file";
print "My page";
print "";
$linescore = 0;
while() {
if($linescore) {
last if /^\s*$/;
chomp;
push @LS, split('\|',$_);
print "";
} elsif(/^LINESCORE/) {
$linescore = 1
}
{
print "| $el @LS | ";
print "
";
}
}
print "
";
close INPUT;