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