すみません。Perl初心者です。
どなたかご教示願えたらと思います。

1行目 no no no no no no no no A B C D no no no
2行目 no no no no no no no no A B C D E F G
3行目 H I J K no no no no A B C D E F no
4行目 no no no no no no no no A B C D E F G
5行目 H I J K L M N O P Q R no no no no
6行目 no no no no no no no no A B C no no no no

上記の様にそれぞれの行がスペースで区切られた16のフィールドを持つ
ファイルから
ABCD,ABCDEFGHIJK,ABCDEF,ABCDEFGHIJKLMNOPQR,ABCという配列を抜き出
すにはどのようにしたらよろしいのでしょうか？
1. 名前の始まるフィールド(Aの位置)は決まっています。
2. 4~6行目の様に名前が長く次の行のAのフィールドまで達すると、次の
名前は更に次の行から始まってしまいます。

1行ずつ読み込む方法ではループがクロスしてしまい、nextやlastを使って
も私の能力不足で上手いようにはいきません。
申し訳ございませんが、どなたかお教え頂けたらと存じます。