Hello, I am stuck with this issue. How do get each substring (the names in this case) and then upper case them. This does not work just yet....
Possible data: mike smith john h. hamilton g. bush hendric etc...... ---- #!/usr/bin/perl $SendersName = " dave middlename gilden "; $SendersName =~ s/\s*(.+)\s*/$1/g; ($SendersName) = $SendersName =~ m/([\w\.-]{1,24}( [\w\.-]{1,24}){0,4})/; $SendersName =~ s/.+ (.+)? (.+){1,3}/\u$1 \u$2 \u$3/g; print "$SendersName\n"; Thanks! Dave Gilden -- Ft. Worth Island Journey music video now online! <http://www.abbydigital.tk/> ================================================ Cora Connection: Your West African Music Source Resources, Recordings, Instruments & More! <http://www.coraconnection.com/> ================================================ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>