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