Help for this page

Select Code to Download


  1. or download this
    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;$_;
    }
    
  2. or download this
    print re("Re: Re: Re: Re: Re: Re: Reply\n");
  3. or download this
    Re6: Reply