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

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