$str =~ s/(?<=<tag refid=")([^"]*)(?=")/sort_and_reformat($1)/eg;