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