Select Code to Download

sub foo {
    my ($massage) = @_;
...
}

foo(sub { s/(foo|bar|baz)/\U$1/g });

sub foo {
    my ($rx, $subst_e) = @_;
...
}

foo(qr/(foo|bar|baz)/, '\U$1');