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