Instead of rewriting the perl script and so forth, why not just just have a hash containing all the regexes and simply interpolate which ever one you want, i.e.

my $regex="C B A R"; #however you choose to define it

while(<FH>)
{
 if(/$regex/o)
#  do something;
}
[download]