#!perl -pal
my%h;/\D+/,$h{$&}+=$'||1for@F;$_=join$",map$_.$h{$_},grep$h{$_},qw(m kg s A K mol cd);s/1//g