$after =~ s/(\w+)\W+\1/$1/;