use Email::Find;

#$v_email contains a string of emails
my @emails = ();
find_emails($v_email,
    sub { push @emails, $_[1] if @emails < 3 } );

$v_email = join(", ",@emails);

print "v_email: $v_email\n"