$s =~ s/(?=\S+([[:upper:]]-){2,}[[:upper:]]\b)/%/g;