Select Code to Download

$tofind = "some string";

...
foreach (@clist) {
    print "Found $tofind\n", last if($tofind =~ /$_/);
}