$in[$x] =~ /(\w+\W?\w*\W?\w*\W?\w*\W?\w*\W?\w*\W*?\w*\W*?\w*\W*?\w*)\:(=?0?.+:*)/;
$a =$1;$2;
$a =~ s/;X-SYNCMLREF\d+//;
$key{$a} = $a;