Re^3: Regular Expression Help

[Eimi Metamorphoumai]

You'll have to figure out exactly what syntax it's using, since it's different from the normal regexp syntax. Here's a quick hack based on a guess of what you want, but it may not be robust.

my $full_text = "(7001) - This is some text";
my $check_str = "([7000|7001|7002|7003]) - This";

$check_str =~ s/([()])/\\$1/g;
$check_str =~ s/\[/(?:/g;
$check_str =~ s/\]/)/g;

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