my $subject = $query->param('subject');
$subject = '(Disallowed char in subject)'
  if $subject =~ m!\n!sm;