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