$id =~ s/(?<=[a-z]) (?=[a-z])/,/;