s/\b([Uu])s\b/$1 eq 'U' ? Them : them/eg;

##</code><code>##

$test =~ s/\b([Uu])s\b/$1 eq 'U' ? "Them" : "them"/eg;