DB<152>  open my $fh ,">", "$_" or say "ERROR:'$_' $!"  for qw/~ [ ] { } * ?/
ERROR:'*' Invalid argument
ERROR:'?' Invalid argument

  DB<153> x <?>
0  '['
1  ']'
2  '{'
3  '}'
4  '~'
  DB<154>