Select Code to Download

while (<DATA>) {
    my ( $name, $initial ) = ( split / / )[ 1, 2 ];
    $initial = substr $initial, 0, 1;
...
0. Amber BYU
1. Kim BGSU
2. Kim Washington

while (<DATA>) {
    chomp;
    ( undef, my $line ) = split / /, $_, 2;
...
0. J
1. B F K
2. A I J