字符窜比较疑问?

字符窜比较疑问?

求教一个字符串比较的疑问:

    在从一个文件列表 提取出ERR和DEF列中的符号:

QWE  ERR  YTUU  DFF
12     A1     635    B2   
45      C1     234    G2
66       A1     233   G1
77       B2      323    A1
.
.
.
.
.
怎么让A1B2和B2A1相等,也就是看成相同的关系,不考虑两者的顺序?
不明白你的意思哦
写个小sub:

首先判断长度.
然后, 对任意1个string中的每一个字符, 统计它在2者中的次数, 大致比如:
my ($aa, $bb) = qw(A1B2 B2A1);
for (split $aa) {
    return 0 if ( ($aa =~ tr/$_//) != ($bb =~ tr/$_//) );
}
return 1;

不知道还有其他方法没......