Select Code to Download

my $find="CXYF";
my $string = "ABCDEFGHIJKLMNOPCDEFQRST";

#!/usr/bin/perl -w
use strict;
...
        
        print "'$find' string found" if ($string =~ /$find/);
}