Select Code to Download

use strict;
use warnings;
...

    print "'$find' string found" if ($string =~ /$out/); # if found pr
+int the string
}

my $string = "ABCDEFGHIJKLMNOPCDEFQRST";

my $find="CDEF";

print "'$find' string found" if ($string =~ /$find/);