$string =~ s/ __ (?: [a-zA-Z]_ ){1,2} /__/xms;