So something like this? I don't get any output.

Thanks

#!/usr/bin/perl

use strict;
use warnings;

my $data = "duck";
my $r;
while(<DATA>) {
   chomp;
   my ($x, $y) = split(/\s/, $_);
   
   $r->{$x} = qr/$y/;

   if ($data =~ $r->{"duck"}) {
      print "$data\n";
   }
}

__DATA__
duck s/duck/luck/
[download]