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

##</code><code>##

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