last if /^\s*$/;

##</code><code>##

last if /^END PITCHING/;

##</code><code>##

print "<td>$_</td>" foreach @LS;

##</code><code>##

print "<td>" . $LS[$_] . "</td>" for (1..$#LS);