Drop the quotes (') inside of the regex.

Like this:

$source = "/kmtest/cci022_031902.txt: No such file or directory";

if ($source =~ /no such file/i) {
    print "Found it \n";
}
[download]