Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
if($str1 =~ m/@arr/){
      print "Matched";
}
  2. or download this
    $ perl -MO=Deparse test.pl
use warnings;
use strict 'refs';
...
    print 'Matched';
}
test.pl syntax OK
  3. or download this
    #!/usr/bin/perl

use strict;
...
if ($str1 =~ m/$joined_rx/) {
      print "Matched";
}