#!/usr/bin/perl

#Gibt die FN (Full Name) Zeile bei vcf (vcards) hinzu

open (FILE, ")
{
	chomp;

	next if (! /:/);	# zeilen ohne doppelpunkt Überspringen
	$vorhanden=1 if (/FN:/);

	if (! $vorhanden && /^N:(.*?);(.*?);;;/){
		print ("gefunden: FN:$2 $1\n");
	}
		
	($key, $value) = split (":");
	print ("$key:$value\n");
	if (/END:VCARD/)
	{
		print "\n" ;
		$vorhanden=0;
	}
}