perl -ple '$_="@{[/\w+/g]}[0,-1]"'