while ($in{$modContactTitle} =~ /[\s]+$/)
  {
  chop($in{$modContactTitle});
  }