$title = "Re: $title" unless $title =~ s#^Re^?(\d*):#'Re^'.(defined $1 ? $1 + 1 : 2).':'#e;