My page

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 ##

##

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;