use strict;
use warnings;

local $/ = 'END:VCARD';

while (my $record = <DATA>) {
    my ($name, $number) =
        $record =~ /FN:([^\n;]+).*\nTEL;[^\n]*PREF:([^\n;]+)/s;

    next if !defined $number;
    printf "%15s -> %s\n", $name, $number;
}

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