#!/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