#!/perl/bin/perl.exe -w 
use strict; 
my @final_array; 
print qq~Content-type: text/html\n\n~; 
 
while ( <DATA> ) {#assumes file is already open 
   chomp; 
   1 while $_ =~ s/,?([A-Z])[a-z]+/$1\./g; 
   push @final_array, $_; 
} 
print "$_<br>\n" for @final_array; 
 
__DATA__ 
John  
John,Jodie  
John,Jodie,Susan  
John,Jodie,Susan,Frank  
John,Jodie,Susan,Frank,Mary