Perlについての質問箱 27箱目

質問です。
AAA
BBB
CCC
というファイルがあります。
一行目がAAAであるときのAAAとCCCを
AAA CCCというならびで抽出したい場合

foreach(<STDIN>){
if(/(AAA)/){
print "$1";
foreach(<STDIN>){
if(/(CCC)/){
print " $1\n";
　　　　 last;　
}
}
}
}
で上手くいきません。
ご教授お願いします。