#!/usr/bin/perl

use strict;
use warnings;

my $data = "duck";
while(<DATA>) {
    chomp;
    my $code = eval "sub{ \$_[0] =~ $_ }" // die $@;
    if( $code->( $data ) ) {
        print "$data\n";
    }
}

__DATA__
s/duck/luck/