Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

while (<DATA>) {
...
,"Favors, Eric S.",Shave,,Skin,Cash,,
,"Williams, Herb C.",Fade,,High,Check,,
,"Carter, Shaun ",Caesar,,Low,Cash,,

Select or download this

LAST: Lawrence FIRST: Jerry MID: A.
LAST: Wallace FIRST: Bob MID: W.
LAST: Anthony FIRST: Ronald MID: 
...
LAST: Favors FIRST: Eric MID: S.
LAST: Williams FIRST: Herb MID: C.
LAST: Carter FIRST: Shaun MID: