use strict;
use warnings;

my @re_subs = (
	sub { s/(?:this|or|that)/bob/gsi for (@_) },
	sub { s/(?:One|Two|Three)/Four/gs for (@_) },
);

my @strings = ('this one or that other', 'One two Three');

for my $string (@strings) {
	$_->($string) for (@re_subs);
	print "$string\n";
}