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