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

    if (! $replace){
        print $str =~ /$search/;
    }
    else {
        print $str =~ s/$search/$replace/g;
    }
}

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