$idstring =~ s/(\w+ \w \w+) (\S+) (\d+) (\S+ \S+)/$1,$2,$3, $4/;