if ($account !~ /.{21}40[68]/) {
    print FH1 "$account\n";
}