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

##</code><code>##

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