Select Code to Download

"PER"
"Denise Johnson" "red,orange,yellow,green,blue,purple" 09/25/2001
"EOS"

Name  = Denise Johnson
...
Color = purple
Date  = 09/25/2001

Name  = Denise Johnson
Color = red,orange,yellow,green,blue,purple
Date  = 09/25/2001

Name   = PER
Color  =
...
Name   = Denise Johnson
Color  = red,orange,yellow,green,blue,purple
Date   = 09/25/2001

#!/usr/bin/perl-Tw
use strict;
...
   print "Date   = $data[2]\n";
}