$password =~ y/'"`\x00//;

  print "Content-Type: text/html\n\n$password";
  print ord($_)."-" foreach (split(//, $password));