index is case sensitive. You'll probably want to say

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

to normalise $source into lower case.