#!perl -p
s/ass/BUTT|($m=uc$&^$&).substr$m,2/egi