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

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