my @SUB_REC = (
   qr{(?:this|or|that)}si,
   qr{(?:One|Two|Three)}s,
);
my @SUBSTITUTION = qw/bob four/;
for my $idx (0..$#SUB_REC) {
    $str =~ s/$SUB_REC[$idx]/$SUBSTITUTION[$idx]/;
}