#!perl -p
s/a(ss)/(B lt$&?b:B).($1=~S?UTT:utt)/gei