while (<DATA>) {
    my ( $name, $initial ) = ( split / / )[ 1, 2 ];
    $initial = substr $initial, 0, 1;
    say "$name $initial";
}

__DATA__
0. Amber BYU
1. Kim BGSU
2. Kim Washington

##</code><code>##

while (<DATA>) {
    chomp;
    ( undef, my $line ) = split / /, $_, 2;
    say $line;
}

__DATA__
0. J
1. B F K
2. A I J