Don't forget to use a \ to escape out special characters when using regex.
#!/pw/prod/svr4/bin/perl
use warnings;
use strict;
use Data::Dumper;
my $ipn= qr/\( going \) there/;
my $jpn="( going ) there";
if($jpn =~ m/$ipn/) {
print "yes";
}
else
{print "nomatch";}
Lots of good regex info if you search around Perl Monks try Perlmonks Tutorial:
Regular Expressions Tutorial, the Basics (for BEGINNERS)I have also found
http://www.regular-expressions.info/quickstart.html very helpful working with regex's. Lots of good examples.I found tools like
http://www.txt2re.com/ or Eclipses regex tool to be helpful in debugging my regex commands.Good Luck.
-- Grey Fox
"We are grey. We stand between the darkness and the light" B5