open(TMPFILE, "$tmp_file") || die "could not open file: $tmp_file";
while(<TMPFILE>)
{
    if (/BEGIN:VCARD/)
    {
      $tmpline="";
      until ( $tmpline =~ m/END:VCARD/ )
      {
         $tmpline = <TMPFILE>;
         if ( $tmpline =~ m/^FN:/) {print " tmpline=$tmpline"; }
         if ( $tmpline =~ m/^item1.EMAIL;/) {print "tmpline=$tmpline";}
         if ( $tmpline =~ m/^EMAIL;/) {print "tmpline=$tmpline";}
      }
    }
}
close (TMPFILE);