perl -e 'my $x = "fredfred"; $x =~ s/(fred)/\U$1/g; print $x'
FREDFRED