use Perl::Golf; sub re{ $_=pop;s/Re:\s*/\x01/g;s/Re(\d+):\s*/"\x01"x$1/eg;s/(\x01+)/"Re". length($1).": "/e;$_; } #### print re("Re: Re: Re: Re: Re: Re: Reply\n"); #### Re6: Reply