Perl script for elaborating names

hello, the question is simple. I've as input a file (say namesIN.txt) like this:

FIRST NAME  Second Name
DOE John Charles
SMITH JASSIE Robert

and so on...in a word: the first names all capital, the second names with only the first letter capital.
I'd like to "insert" a character (say "|") to separate firsts and seconds, obtaining a new file (say namesOUT.txt) like this:



FIRST NAME | Second Name
DOE | John Charles
SMITH JASSIE | Robert

is it possible with a perl script?
all the best, thanks in advance,
fabianope
fabiano petroneAsked:
Who is Participating?
 
TintinCommented:
Perl or sed.  Doesn't make much difference

sed  "s/\([A-Z]\) *\([A-Z][a-z]\)/\1 | \2/" namesIN.txt > namesOUT.txt
0
 
fabiano petroneAuthor Commented:
it works perfectly...thanks a lot!!
fabianope
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.