Help for this page
my $find="CXYF"; my $string = "ABCDEFGHIJKLMNOPCDEFQRST";
#!/usr/bin/perl -w use strict; ... print "'$find' string found" if ($string =~ /$find/); }