Select Code to Download

Date Range                  Level   Consumers
-------------------------- -------  --------------------------
...
24 Mar 2004 to 31 Mar 2004      6   AB, DA, RC, RI, RR, SJ
01 Apr 2004 to 15 May 2004      3   Alan Po, Rohan Ito, Sam Jones
16 May 2004 to 31 Dec 2004      5   AP, PS, RC, RI, SJ

$init{$_} = join '', ($_ =~ /\b\w/g) for @names;

Date Range                  Level   Consumers
-------------------------- -------  --------------------------
...
24 Mar 2004 to 31 Mar 2004      6   AB, DA, RC, RI, RaRa, SJ
01 Apr 2004 to 15 May 2004      3   Alan Po, Rohan Ito, Sam Jones
16 May 2004 to 31 Dec 2004      5   AP, PS, RC, RI, SJ

Alphonse Romeo-Smith => ARS
Big Al Bundy => BAB
...
Tiny Tim => TT
Tom Demarco => TomDem
Tom Denada => TomDen

A A Milne => AAMilne   
A A Milner => AAMilner

use strict;
...
Tom DeMarco
Tom DeNada
K9

Adam Harper
Alan Pfaff
...
Wayne Maye
Wayne Ulrich
Yolanda Hood