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

##</code><code>##

my $x = join ":", 4, 6, 8, 10, 12;