if(index(lc $source, 'no such file') != -1) {
    print "Found it \n";
}