foreach (@users) {
   if (/$target/) {
      $rec = (split)[3];
      if ($rec =~ /\D/) {
         next if $rec =~ /dtr/;
... etc