my $who = $1;
s/$who/\U$who/gi;