Select Code to Download

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

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