BEGIN:VCARD
VERSION:3.0
N:;Naresh;;;
FN:Naresh
TEL;TYPE=CELL;TYPE=PREF:+917734807608
END:VCARD

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use vCard;

my $vcard = vCard->new;

$vcard->load_file('file.vcf');

print "Full Name: ", $vcard->full_name, "\n";

my $pref_phone_num;

foreach my $phone ( @{$vcard->phones} ){
   if($phone->{preferred} == 1){
       $pref_phone_num = $phone->{number};
   }
}

print "Preferred Phone Number: ", $pref_phone_num, "\n";

exit;


##</code><code>##

Name: Naresh
Preferred Phone Number: +917734807608