perl -pe 's/\W*(\w+).*\W(\w+)\W*/$1 $2/'
perl -ple '/(\w+).*(\b\w+)/;$_="$1 $2"'
perl -ple '$_=join$",/(\w+).*(\b\w+)/'
perl -ple '$_="@{[(/\w+/g)[0,-1]]}"'
perl -ple '$_=join$",(/\w+/g)[0,-1]'
perl -ple '@w=/\w+/g;$_="@w[0,-1]"'
perl -pe '@w=/\w+/g;s/.*/@w[0,-1]/'

# my personal favorite
cat -n|perl -plaF\\W+ -e '$_="@F[2,-1]"'