DB<6> $a = 'Apr-Jun03.zip~';

  DB<7> p $a =~ /^[\w.-~]+$/

  DB<8> p $a =~ /^[~\w.-]+$/
1
  DB<9> p $a                
Apr-Jun03.zip~
  DB<10> p $a =~ /^[\w~.-]+$/
1
  DB<11> p $a =~ /^[\w.~-]+$/
1