Select Code to Download

use strict; use warnings; use feature 'say';
use List::Util 'any';
...
        say "Cannot find $wanted";
    }
}

$ perl 1195036.pl
Found foo
Found bar
Found baz
Cannot find missing