My page

24|St. Louis Cardinals 1|4995|Fernando Vina|2B|4|0|0|0|0|0|0|.317|.397|.425 2|5602|Edgar Renteria|SS|4|0|1|0|1|0|1|.260|.321|.470 3|5151|Jim Edmonds|CF|3|1|2|1|5|1|0|.409|.538|.864 4|3866|Mark McGwire|1B|3|1|1|1|4|1|0|.323|.494|.903 5|4547|Ray Lankford|LF|4|0|0|0|0|0|3|.193|.297|.420 6|5046|Craig Paquette|3B|3|0|1|0|2|1|1|.264|.325|.486 7|6117|J.D. Drew|RF|4|0|1|0|1|0|1|.327|.462|.596 8|5205|Mike Matheny|C|3|0|0|0|0|0|0|.289|.375|.421 8|4506|Thomas Howard|PH|1|0|1|0|1|0|0|.280|.357|.760 8|5897|Eli Marrero|PR|0|0|0|0|0|0|0|.250|.343|.643 9|4379|Andy Benes|P|2|0|0|0|0|0|0|.167|.167|.167 9|3625|Eric Davis|PH|1|0|0|0|0|0|1|.281|.388|.491 9|4625|Heathcliff Slocumb|P|0|0|0|0|0|0|0|.000|.000|.000 9|4979|Mike Mohler|P|0|0|0|0|0|0|0|1.000|1.000|1.000 9|5880|Larry Sutton|PH|1|0|0|0|0|0|0|.000|.000|.000 TOTALS|33|2|7|2|14|3|7 17|Cincinnati Reds 1|5746|Pokey Reese|2B|3|1|1|1|1|0|0|.343|.408|.429 2|5930|Sean Casey|1B|3|0|1|0|1|1|0|.200|.344|.320 3|4305|Ken Griffey Jr.|CF|4|1|2|2|5|0|1|.210|.326|.448 4|5699|Dmitri Young|LF|4|0|1|0|1|0|1|.287|.339|.446 4|5540|Alex Ochoa|LF|0|0|0|0|0|0|0|.297|.357|.595 5|4615|Eddie Taubensee|C|4|0|0|0|0|0|1|.325|.387|.542 6|4159|Dante Bichette|RF|3|0|2|0|2|0|0|.219|.265|.324 6|6174|Scott Williamson|P|0|0|0|0|0|0|0|-|-|- 7|5838|Aaron Boone|3B|3|0|0|0|0|0|0|.270|.389|.438 8|5508|Juan Castro|SS|3|1|1|0|2|0|0|.333|.333|.667 9|5346|Ron Villone|P|1|0|0|0|0|0|0|.222|.222|.222 9|5299|Michael Tucker|RF|0|0|0|0|0|0|0|.167|.375|.500 TOTALS|28|3|8|3|12|1|3 LINESCORE 24|St. Louis Cardinals|2|7|0|8|0|0|0|2|0|0|0|0|0 17|Cincinnati Reds|3|8|0|5|1|0|0|0|1|1|0|0|x DOUBLES 5046|Craig Paquette|24|St. Louis Cardinals|1|5 5508|Juan Castro|17|Cincinnati Reds|1|1 HOME RUNS 5151|Jim Edmonds|24|St. Louis Cardinals|1|11 3866|Mark McGwire|24|St. Louis Cardinals|1|11 4305|Ken Griffey Jr.|17|Cincinnati Reds|1|8 HOMER DETAILS 5151|Jim Edmonds|24|St. Louis Cardinals|inning 4, 0 out, 0 on off Villone 3866|Mark McGwire|24|St. Louis Cardinals|inning 4, 0 out, 0 on off Villone 4305|Ken Griffey Jr.|17|Cincinnati Reds|inning 6, 0 out, 0 on off Benes SCORING POSITION 24|St. Louis Cardinals|0|7 17|Cincinnati Reds|1|7 SAC BUNTS 5346|Ron Villone|17|Cincinnati Reds|1 SAC FLIES 5746|Pokey Reese|17|Cincinnati Reds|1 STOLEN BASES 4159|Dante Bichette|17|Cincinnati Reds|1|2 CAUGHT STEALING 5602|Edgar Renteria|24|St. Louis Cardinals|1|3 PITCHING 24|St. Louis Cardinals 4379|Andy Benes|L, 2-2|0|6|8|3|3|0|0|1|24|31|41|72|4.41|.258 4625|Heathcliff Slocumb|0|0|1|0|0|0|0|0|0|4|3|8|11|4.08|.231 4979|Mike Mohler|0|0|1|0|0|0|1|3|0|4|8|9|17|8.79|.293 17|Cincinnati Reds 5346|Ron Villone|W, 3-1|0|6.2|5|2|2|3|4|2|28|42|59|101|4.73|.301 6174|Scott Williamson|SV, 2|0|2.1|2|0|0|0|3|0|9|10|25|35|2.53|.211 DOUBLE PLAYS 24|St. Louis Cardinals|2|Vina to Renteria to McGwire|Vina to Renteria to McGwire HBP 24|St. Louis Cardinals|1|Tucker by Slocumb 17|Cincinnati Reds|1|Vina by Villone WP 4979|Mike Mohler|24|St. Louis Cardinals|1 UMPIRES Miller|Runge|Shulock|Rapuano TIME 2:31 ATTENDANCE 42,126 ##

##

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 "";

print "";
}
}
print "$el @LS ";
close INPUT;


##

##

24 St. Louis Cardinals 2 7 0 8 0 0 0 2 0 0 0 0 0  
24 St. Louis Cardinals 2 7 0 8 0 0 0 2 0 0 0 0 0 17 Cincinnati Reds 3 8 0 5 1 0 0 0 1 1 0 0 x