#!/usr/bin/perl

open (FILE, "/home/markus/.kde/share/apps/kabc/std.vcf");

while ()
{
	next if /#.*/;
	next unless /EMAIL:/;	# Nur E-mailadressen sind intressant
	s/EMAIL:(.*)/whitelist_from $1/;			# EMAIL: weglassen
	print;
}