perl 去除一对（）中的中文字符及括号本身

?

?

?

#!/usr/bin/perl -w
use strict;
use warnings;

#my $a = "aligned 中国(中国中)中国心(中国心中)426327399914 frames";
my $a = 'session 0: <enter>(<enter>) 啊(啊)<exit>(<exit>) 你好(你好)请(请)讲(讲)<exit>(<exit>) ?(D:hongmizhuxiaochengtbnr_phone_new_stream_onepassbintaobaoDVS+20121006151539406-44035.wav)';

? $a =~s/D:hongmizhuxiaochengtbnr_phone_new_stream_onepassbintaobao/ /; $a =~s/.wav/ /; $a =~s/session 0://g; $a =~s/&;enter&;(&;enter&;)//g; $a =~s/&;exit&;(&;exit&;)//g; print "$an"; ? my? @chars = (split /([x80-xFF]+?|[x80-xFF]+?)/,$a); ?foreach my $char (@chars) { ??#$char =~s/D:hongmizhuxiaochengtbnr_phone_new_stream_onepassbintaobao//; ??#$char =~s/session 0://g; ??#$char =~s/&;enter&;(&;enter&;)//g; ??#$char =~s/&;exit&;(&;exit&;)//g; ??$char=~s/s+//g; ??$char=~s/(/ ( /g; ??$char=~s/)/ ) /g; ?print $char; ?}