perl实现文本标注

use Encode;
my $a = << 'ATXT';
我爱你
ATXT
 
my $b = << 'BTXT';
我 1
你 2
爱 3
BTXT
$a=decode("gb2312",$a);
$b=decode("gb2312",$b);
my @a = split(//,$a);
my @b = split(/\n/,$b);
foreach $c (@a){
 @d = @b;
 @e = grep{s/^$c\s+(\d+)/$1/e}@d;
 if($#e >= 0){
  push(@c,$e[0]);
 }
 
}
$cc = join('',@c);
chomp $a;
open CCC,"> d:/c.txt";
print CCC encode("gb2312",$a); 
print CCC "  $cc\n"; 
close CCC; 
 print encode("gb2312",$a);
 print "  $cc\n";

结果 我爱你  132

perl提取特定文本行的下一行，参考代码如下： while(){ if(m/^step2$/){ chomp($data = ); } }

这个可不可以换个语言了，PERL处理多字节很麻烦的。