s/a(ss)/(B lt$&?b:B).($1=~S?UTT:utt)/gei,print for<>