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