请高手指点下面的Code, 非常感谢

看了下面的代码，有点不理解，请高手帮忙。
特别是下面4句，请指点：
my $a_to_b='$p=pos($cur);vec($_,$p, == 97 ? a:b;';
my $b_to_a='$p=pos($_);vec($cur,$p, == 97 ? 0:push @delay_trans,$p;a;';
$cur =~ s/a/$a_to_b/eeg;
map {vec($cur,$_,=98 }@tmp if(@tmp);


程序代码： 数据 t.data

pos ，vec都是一个函数，至于这两个函数干什么的··你可以查一下大骆驼··
$cur =~ s/a/$a_to_b/eeg;表达式中的的e是把正则的后半部分即系$a_to_b当作表达式执行，$a_to_b内容为：$p=pos($cur);vec($_,$p,8) == 97 ? a:b;