#!/perl/bin/perl.exe -w 
use strict; 
my @final_array; 
print qq~Content-type: text/html\n\n~; 
 
while ( <DATA> ) {#assumes your file is already open 
   chomp; 
   my @name_array = split(/\,/,$_); 
   $_ = substr $_,0,1 for @name_array; 
   push @final_array, join('.',@name_array); 
} 
print "$_<br>\n" for @final_array; 
 
__DATA__ 
John 
John,Jodie 
John,Jodie,Susan 
John,Jodie,Susan,Frank 
John,Jodie,Susan,Frank,Mary

#!/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

perl -lne 'print map "$_.", /([A-Z])[a-z]*/g'

perl -ne 'print map( "$_.", /([A-Z])[a-z]*/g), "\n"'

#!/usr/local/bin/perl -n 
print map( "$_.", /([A-Z])[a-z]*/g), "\n"

  
 
sub connect { 
#---------------------------------------------------------- 
# Create a database connection.  
 
    my $self = shift; 
    my %conn = %{$self->{connect}};  
 
# No point carring on if we already have a driver. 
    return 1 if ($self->{driver} and ref($self->{driver}));  
 
# Make sure the connection data exists. 
    keys(%conn) or return $self->fatal('DB_CONN_KEY');  
 
# Create a new driver object. 
    my $driv = uc($conn{driver}) || 'MYSQL'; 
    my $pack = qq[PW::DB::Driver::$driv]; 
    my $file = qq[PW/DB/Driver/$driv.pm];  
 
# Require the correct module driver package. 
    require $file; 
    my $dobj = $pack->new({ 
        _debug  => $self->{_debug}, 
        connect => $self->{connect}, 
        table   => scalar($self->name), 
        schema  => $self->{tables} 
    }); 
    $self->{driver} = $dobj; 
    $self->{driver}->connect or return;  
 
    return 1; 
}