再请教，字符串分割的问题

再请教，字符串分割的问题
I 'd like to fly from Beijing to Montreal .
@41 @97 @a5 @aa @79 @59 @BJ @60 @61 @--

List the flights from Beijing to Seattle . And the flights from Beijing to Chicago .
@12 @28 @a1 @6a @BJ @52 @11 @-- @17 @21 @33 @62 @54 @91 @41 @--

I need a flight from Beijing to Newark . And from Newark to New York . I 'd like to fly back to Beijing the next day .
@09 @8a @a4 @21 @90 @BJ @32 @89 @-- @15 @14 @19 @79 @08 @63 @-- @45 @8a @14 @55 @a0 @67 @93 @BJ @29 @36 @7a @--

还是这个文件，按1行单词、1行标注、再1行空行的顺序显示。每个单词底下都对应一个标注。单词与单词之间，标注与标注之间都用一个空格隔开。每个单词的标注都是不同的，其中句号的标注是@--

如果我想把同行的句子分割开，也就是不允许在同一行中出现两个或两个以上的句子，如下所示。程序应该怎么写呢，怎么样找到句号和@--，分开原行形成新行？[CCB]10[/CCB] 菜鸟还是不太懂啊，望指教。

I 'd like to fly from Beijing to Montreal .
@41 @97 @a5 @aa @79 @59 @BJ @60 @61 @--

List the flights from Beijing to Seattle .
@12 @28 @a1 @6a @BJ @52 @11 @--

And the flights from Beijing to Chicago .
@17 @21 @33 @62 @54 @91 @41 @--

I need a flight from Beijing to Newark .
@09 @8a @a4 @21 @90 @BJ @32 @89 @--

And from Newark to New York .
@15 @14 @19 @79 @08 @63 @--

I 'd like to fly back to Beijing the next day .
@45 @8a @14 @55 @a0 @67 @93 @BJ @29 @36 @7a @--

   

困扰几天了，望高手指教..

$\ = @--;----按@--分.
$\ = @--;

按@--分

$/ = "@--";.

my @sentense; #存放句子<.
my @sentense; #存放句子
my @comment; #存放标注
while ($sen = <FH>) { #读入句子
$com = <FH>; #读入标注
$empty = <FH>; #读入空行
chomp $sen;
chomp $com;
# 用.切分$sen并存到@sentense里，代码我就不具体写了。。。
# 用@--切分$com并存到@comment里，代码我就不具体写了。。。
}

# 最后按你的要求，把@sentense和@comment交替打印出来，代码我就不具体写了。。。

写反了..
人老眼花.. 下不为例.. [CCB]8[/CCB]

谢谢楼上各位[CCB]6[/CCB].
谢谢楼上各位[CCB]6[/CCB]

   

是不是这样分句子啊？--.
是不是这样分句子啊？
my @sentense = split (/(.)/, $sen);
my @comment = split (/(@--)/, $com);
然后再依次打印数组@sentense和@comment？

哪位大哥可以帮忙写一下交替打印的具体代码，小弟外行，多谢了！！

   

open FH,"D:/1.TXT"||die .
open FH,"D:/1.TXT"||die "error";

my @sentense; #存放句子
my @comment; #存放标注
while ($sen = <FH>) { #读入句子
$com = <FH>; #读入标注
$empty = <FH>; #读入空行
chomp $sen;
chomp $com;
@sentense = split (/\./, $sen);
@comment = split (/\@--/, $com);
for(my $i=0;$i<@sentense;$i++)
{print "$sentense[$i].\n";
print "$comment[$i]".'@--'."\n\n";

}
}