if ($line =~ m/^\s*names\s=\s{(\s*(.+),?)+\s*/) {
         @tags = split ",", $line;
     @tags = map {
        if ($_ =~ m/"([^"]+)"/) {$_ = $1}
        elsif ($_ =~ m/([^\s]+)/) {$_ = $1}
         } @tags;
      }