s/(SCTN:\s*)(.+)$/join '', $1, map { ucfirst $_ } split /( )/, $2/ge; See if that helps any.
It gives a syntax error. Maybe try this:
Sorry, I forgot to backwack those /. My fault for not testing the code. I'll try again:
s{(SCTN:\s*)(.+)$}{ join '', $1, map { ucfirst $_ } split /(\s+)/, $2 }ge;
Good luck.
James
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]