1 while s/^(.+?\b),?(.*):(.+?\b),?(.*)$/$hash{$1}=$3;"$2:$4"/e;