c:\@Work\Perl\monks>perl -wMstrict -le
"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');
 printf qq{'$_'  } for @strings;  print '';
 ;;
 $_->(@strings) for @re_subs;
 printf qq{'$_'  } for @strings;  print '';
"
'tHiS one or ThAt other'  'One two Three'
'bob one bob bob other'  'Four two Four'