#!/usr/bin/perl

$text = <<"HERE";
U.S. Army
the Army has been berry-berry good to me
US-Army
US Army
HERE


$text =~ s/(?:U.?S.?[\s-])*Army/US-Army/g;

print $text;