User Input Verification

Wrong:

  if ( $something !~ /$BADCHARS/ ) {

Right
  if ( $something =~ /^ $GOODCHARS $/x ) {

  if ( $something =~ /^ $GOODPATTERN $/x ) {