You need to give a little more info. Is every feild garunteed to be like the example you give? i.e. First MiddleI Last email-alias some_number date_in_given_format?

If so, then you can do it easily (I'm assuming it's a file full of these):

while ( <> ) {
     s/^((\w+) (\w) (\w+)) (\w+) ((\d){11}) (\d/\d/\d (\d){2}:(\d){2}:
+(\d){2})$/$1,$5,$6,$8/
}
[download]

this is untested, but should be rather close...

for more on this stuff try:

• man perlre
• Mastering Regular Expressions - a great book

-- I'm a solipsist, and so is everyone else. (think about it)