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

##</code><code>##

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