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