my @random_names = qw /AAA BBBBB CCCCC DDDDDD/;
$s =~ s/[A-Z]{3,}/$random_names[int rand $#random_names]/sg;