$title =~ s{((?:Re: ){2,})}{"Re(" . length($1)/4 . "): "}ge;