$file =~ /^\w[-_\w]+\.\w+$/
    or push @reason, '... it doesn't look like a sane filename';