#
   # Create a contact for each record.
   #
   foreach my $vcf (@vrecs)
   {
      my %track;
      unless ($vcf =~ /^X-GWTYPE:GROUP(END)?/)   # Skip group records.
      {
         chomp $vcf;                             # $/ is still "\n\n".
         $vcf =~ s/=0A=\n/=0A= /g;
         my @lines = split(/\n/, $vcf);

         foreach my $line (@lines)
         {
            my @parts = split(/:/, $line);
            $parts[1] =~ s/=0A= /\n/g;
            $track{$parts[0]} = $parts[1];
         }
      }
      outlook_vcard(%track);
   }