#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $stats_url = q{http://vspx27.stanford.edu/teamstats/team32.txt};

my $stats_txt = get($stats_url);
my @lines = split(/\n/, $stats_txt);

foreach my $i (11 .. $#lines) {
    print $lines[$i], qq{\n};
    my @line_parts = split(/\s+/, $lines[$i]);
    # do something with the parts here, if desired....
}

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $data_file = qq{team32.txt};

open(DF, $data_file) 
  or die(qq{Can't open $data_file for input: $!\n});
while (<DF>) {
    next if ($. < 11);
    chomp;
    print $_, qq{\n};
    my @line_parts = split(/\s+/);
    # do something with the parts here, if desired....
}
close(DF);