#!/usr/bin/perl

my $fn=100;
my $lastfn=0;

while (<>) {
  if ($_ =~ (/^\n/)) { $fn+=1; print JOUTFILE "\n"; next;}
  if ($fn != $lastfn) {
    if (<JOUTFILE>) {    print JOUTFILE "quit\n"; }
    close(JOUTFILE);
    open(JOUTFILE, ">new$fn.vcf");
    $lastfn=$fn;
    print JOUTFILE "ADD VCARD $_";
  } else {
    if ($_ =~ (/^END:VCARD/)) { print JOUTFILE $_ . "quit\n"; next;}
    print JOUTFILE $_;
  }
}

mkdir vcf
cd vcf
perl ../vconvert.pl ../yourfile.vcf

for i in $(ls new*.vcf); do gpesyncd - ; done