while ($text =~ s/\bArmy\b|U\.S\. Army/US-Army/g) {
    print "$text\n\n";
}