sub usingtr_1e {
    eval join '+',
              map qq{abs(('$aa' =~ y/$_//)-('$bb' =~ y/$_//))},
                  'A' .. 'Z';
}