$id =~ s/([a-z]) ([a-z])/$1,$2/;