I have written some code 2 ways, (shown below). The firsts one without the binding operator does work. The second one, with the binding operator doesn't work.

   print "Enter a string: ";
   chomp(my $_ = <STDIN>);

   if ($_ = /(a|b|x)/i) {
     print "Its a good match\n";
   } else {
     print "That was not a good match\n";
   }


  print "Enter a string: ";
   chomp(my $teststring = <STDIN>);

   if ($teststring =~ m{ /(a|b|x)/}i) {
     print "Its a good match\n";
   } else {
     print "That was not a good match\n";
   }
[download]

I guess I don't understand the difference between binding and non-binding reg-exps. TIA, The Catfish