You're almost there.. just missing the parenthesis..

my $full_text = "(7001) - This is some text";
my $check_re = qr/\((7001|7002|7003)\) - This/;

if ($full_text =~ /$check_re/) {
    print "full_text has the check_str\n";
}
[download]