say "a:b:c:d" =~ s/ :\K [^:]+ (?=:) / uc($&) /xegr;