Convertir el correo electrónico en contacto

Muchos (¿la mayoría?) de los clientes de correo electrónico (incluido Mail de Apple) entienden Name <emailaddress> . Estaba seguro de que debería ser posible importar a Contactos, pero al no encontrar nada escribí un programa rápido y sucio para convertir a VCF (que Contactos sí entiende).

#!/usr/bin/env perl

# Convert file of email addresses to vcf file
# File should contain:-
# Name Surname <emailaddress>
# 2022-04-17

use Modern::Perl '2015';
use autodie;

my $listfile = 'mailfile.txt';  # replace with path to file of email addresses
my $vcffile = 'listfile.vcf';

open my $fh, '<', $ listfile;
open my $tmp_fh, '>', $vcffile;

while (my $line = <$fh>) {
    chomp $line;
    $line=~ s/\s+$//;   # remove right spaces

    my ($fn, $email) = split /</, $line;    # split line
    $email =~ s/>//;

    my ($name, $surname) = split(' ', $fn, 2);
    $surname=~ s/\s+$//;    # remove right spaces

    print $tmp_fh "BEGIN:VCARD\n";
    print $tmp_fh "VERSION:3.0\n";
    print $tmp_fh "N:$surname;$name;;;\n";
    print $tmp_fh "FN:$fn\n";
    print $tmp_fh "EMAIL;type=INTERNET;type=HOME;type=pref:$email\n";
    print $tmp_fh "END:VCARD\n";
}

close($tmp_fh);