#!/usr/bin/perl

use strict;
use warnings;

my $data = "duck";
while(<DATA>) {
   if ($data =~ $_) {
      print "$data\n";
   }   
}

__DATA__
s/duck/luck/qr