D'oh! Actually the author was even more clever and figured out how to leave 'US' alone. Your solution breaks under strict though. Try this:

my %tr = qw(U T u t);
s/\b([Uu])s\b/$tr{$1}hem/g;
[download]

BTW I would wonder about the author's solution working with Unicode...