$in[$x]="NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress:=0A=0Aor. Soroca=0ARepublic of Moldova=0A=0A=0A=0A Footwear. =Children's footwear. Lady's footwear." 
##</code><code>##

$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;

##</code><code>##

$1 = "NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress"
$2 = "=0A=0Aor. Soroca=0ARepublic of Moldova=0A=0A=0A=0A Footwear. =Children's footwear. Lady's footwear."