Winner winner, chicken dinner! (saw the movie 21 last night, it comes highly recommended). Yes thats perfect!
Just so I can make sense of it and use it in future, any chance you could explain
s/(\w+).*/$1/
Thanks again, it's perfect.
You can read all about the Substitution Operator in the free online documentation at perlretut. Search for "Search and replace". There are dazzling multi-color code examples complete with hyperlinks!
Or, if you prefer reading from a book, Learning Perl is a good place to start.