Re: Store regular expressions in a file.

[mjscott2702]

If you just wanted to create regular expressions for matching from a file, you could use the qr quoting operator, but don't think that will work for substituting as you appear to want to do - as others have pointed out, you would probably have to use eval for that.

[Anonymous Monk]

I see.

Thanks

[BrowserUk]

This also works:

#!/usr/bin/perl
use strict;
use warnings;

my $data = "duck";
while(<DATA>) {
    chomp;
    my( $find, $replace ) = split ' ', $_, 2;
    if( $data =~ s[\Q$find][$replace]e ) {
        print "$data\n";
    }
}

__DATA__
duck luck