Select Code to Download

my $str = "This is one thing. This.";

...
my $cref = sub { $_[0] =~ s/This/That/ig; };

cref_regex($str, $cref);

sub separate_regex {
    my ($str, $search, $replace) = @_;
...
}

separate_regex($str, 'This', 'That');