with ": (" with no spaces and 
to ": D" with no spaces.
umper;
.*)$//;.*?).*?);/;[A-Z]+)\+?\d+)/) {\d{4})(\d{2})(\d{2})/) {thanks it works fine
one thing is curly brace missing at the end i added it "}"
at last
i added few lines for writing the contents to file
#!/usr/bin/perl
use strict;
use Data:umper;
my $F;
open($F,'file.nbu');
my $file = join '', <$F>;
close($F);
open(MYFILE, '>data.txt');
my @vcards;
print "First Name,Last Name,Birthday,Primary Phone,Home Phone,Home Phone 2,Mobile Phone,Mobile Phone 2,Mobile Phone 3,Work Phone,Work Phone 2,Home Fax\n";
my %max_phone;
while ($file =~ /BEGIN:VCARD(.*)END:VCARD/s) {
$file =~ s/BEGIN:VCARD(.*?)END:VCARD//s;
my $record = $1;
$record =~ s/[\r\n]/_/g;
$record =~ s/PHOTO;ENCODING=BASE64.*)$//;
$record =~ s/VERSION:3\.0//;
chomp $record;
my @info;
$record =~ s/_+/_/g;
@info = split('_',$record);
my %c;
foreach my $record (@info) {
if ($record =~ /^N:/) {
$record =~ /^N.*?).*?);/;
my $fname = $1;
my $lname = $2;
$c{FNAME} = $fname;
$c{LNAME} = $lname;
} elsif ($record =~ /^TEL[A-Z]+)\+?\d+)/) {
my $type = $1;
my $num = $2;
unless($c{$type}) { $c{$type} = () };
push @{$c{$type}}, $2;
$max_phone{$type} = int(@{$c{$type}}) > $max_phone{$type} ? int(@{$c{$type}}) : $max_phone{$type} ;
} elsif ($record =~ /^BDAY\d{4})(\d{2})(\d{2})/) {
$c{BDAY} = "$2/$3/$1";
} else { #print $record . $/ if ($record);
}
}
print MYFILE join(',' , ($c{FNAME}, $c{LNAME}, $c{BDAY}, $c{VOICE}->[0], $c{HOME}->[0], $c{HOME}->[1], $c{CELL}->[0], $c{CELL}->[1],
$c{CELL}->[2],$c{WORK}->[0], $c{WORK}->[1], $c{FAX}->[0])). $/;
}
close (MYFILE);
Please check the Noki vCard recovery guide. Select "merge into an outlook .csv file" to get a .csv or select "extract to ..." to get vCard files.
