Select Code to Download

if (index($filename, $account) >= 0) {
    print $filename."\n";
...
else {
    print "No match for $account\n";
}