Select Code to Download

#! perl -slw
use strict;
...
    [ join('', m[([A-Z])]g), $_ ]
#} @names, 'ZZZZZZZZZZZZ';
} @names;

AAM A A Milne
AAMr A A Milner
...
WM Wayne Maye
WU Wayne Ulrich
YH Yolanda Hood