for my $FN ( glob "$dir/".'*[\ \\?<>,`!@#$%^&*();+={}[]*' ) {