$_='Us ? The bus usually waits for us, unless the driver forgets us.';
print "$_\n";
s/\b([Uu])s(\W)/chr(ord($1)-1).hem.$2/eg;
print "$_\n";