#! /usr/bin/perl -w
use strict;

open ( my $fh, '<', '/home/mm/Liste.vcf' ) or die "$!";
local $/;
my $file = <$fh>;
close ( $fh );


my $count = 0;
my%hash = ();
while ( $file =~ m/BEGIN:VCARD.*?\s+N:([^;]*;[^;]*;[^;]*;[^;]*;[^;]*?)\s+.*?TEL;TYPE=CELL[^:]*:(\+?\d+).*?END:VCARD/gs ) {
        my $key = $1;
        my $value = $2;
        my @namen = split ( /;/, $key );
                $key = "$namen[1] $namen[0]" if $namen[1] and $namen[0];
                $key = $namen[0] if ! $namen[1];
                $key = $namen[1] if ! $namen[0];
        $hash{$key} = $value if $key && $value;
}



foreach ( keys %hash ) {
        print $_, ' ',  '-' x ( 30 - length ( $_ ) ), ' ', $hash{$_}, "\n";
}

__DATA__
BEGIN:VCARD
VERSION:3.0
REV:2008-09-16T15:10:40Z
X-EVOLUTION-FILE-AS:Nachname\, Vorname
FN:Vorname Nachname
N:Nachname;Vorname;;;
TEL;TYPE=VOICE,OTHER:0123456789
TEL;TYPE=CELL,OTHER:0123456789
UID:pas-id-10AAAA1000000001
END:VCARD

BEGIN:VCARD
...