if ($teststring ne '') {
  ...