$_ = "I saw Barney with Fred";
s/(fred|barney)/\U$1/gi;