Select Code to Download

my $str = "foo bar baz quux";
   $str =~ s<([a-z]+)
             (?{ s| \1|\L$&|; })><\U$1>xg;

$str =~ s<([a-z]+ ?)><local $_ = $1; s/$1/\U$&/g; $_>eg;