open(INPUT,"c:/MLB_boxscore.TXT") or die "Can't open file"; print "My page"; print ""; $pitching = 0; while() { if($pitching) { last if /^[A-Z]+$/; chomp; @LS = (); push @LS, split('\|',$_); print ""; print "" for (1..$#LS); print ""; } elsif(/^PITCHING/) { $pitching = 1} } print "
" . $LS[$_] . "
"; close INPUT;