Help for this page

Select Code to Download


  1. or download this
    perl -wne "s/(.)\1+(?!\1)/length($&)>2?qq[$&]:qq[($1$1)]/ge;print" fil
+e.txt
  2. or download this
    perl -wne 's/(.)\1+(?!\1)/length($&)>2?qq[$&]:qq[($1$1)]/ge;print' fil
+e.txt