My page

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

@LS[1]

@LS[2]

@LS[3]

@LS[4]

@LS[5]

@LS[6]

@LS[7]

@LS[8]

@LS[9]

@LS[10]

@LS[11]

@LS[12]

@LS[13]

@LS[14]

@LS[15]

@LS[16]

"; close INPUT;