$/='END:VCARD'; print map { $_->[1],"\n" } sort { $a->[0] cmp $b->[0] } map { [ /\bN:( +\w+)/, $_ ] } <>; [download]
In reply to Sort VCards by Surname by EdwardG