Help for this page

Select Code to Download


  1. or download this
    perl -e 'my $x = "fredfred"; $x =~ s/(fred)/\U$1/; print $x'
FREDfred
  2. or download this
    perl -e 'my $x = "fredfred"; $x =~ s/(fred)/\U$1/g; print $x'
FREDFRED