my $input = "foo bar baz"; $input =~ s/(\w+)/uc($1)/ge;