Apologies if I sounded a bit patronizing,

But instead of the printf "%s\t%s\t%s\n", $splited[0],$splited[$#splited-1], $splited[$#splited]; I thought by using Regex can speed it up and makes it more efficient.

Thanks for your help, I have learnt something from it.

Regards