Re: how to get the String as regularexpression

[reneeb]

Have a look at the qr-operator

sample:

#!/usr/bin/perl

use strict;
use warnings;

my $extensions = qr/\.doc|\.gif/;

my @files = qw(test.doc test.gif test.png test.jpg);

for(@files){
    if($_ =~ $extensions){
        print "yes\n";
    }
}

[davorg]

qr// doesn't change the way that the string is interpolated into a regex - it simply precompiles the string into a regex (see the documentation).

Using qr// with the code from the original post won't fix the problem. You have fixed the problem by dropping the spurious '|' from the start of the regex.