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

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