Select Code to Download

use warnings;
use strict;
...
my $check_str = '\((?:7000|7001|7002|7003)\) - This';

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