@compare = map{qr/$_/} qw'^foo bar$';

print $test unless $test =~ /$_/ foreach @compare;