use warnings;
use strict;

my $full_text = "(7001) - This is some text";
my $check_str = '\((?:7000|7001|7002|7003)\) - This';

print "full_text has the check_str\n" if $full_text =~ /$check_str/;