- or download this
$in[$x]="NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress:=0A=0Aor. Soroca=0A
+Republic of Moldova=0A=0A=0A=0A Footwear. =Children's footwear. Lady'
+s footwear."
- or download this
$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;
- or download this
$1 = "NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress"
$2 = "=0A=0Aor. Soroca=0ARepublic of Moldova=0A=0A=0A=0A Footwear. =Ch
+ildren's footwear. Lady's footwear."