perl -e '$a = "ab%13!3&z* Trial"; $a=~s/(\w+)\W+/$1/g; print $a;'