$text =~ s/(U\.S\.)?\bArmy/US-Army/g;