Help for this page

Select Code to Download


  1. or download this
    _________XX_X_XX_________ => 2,1,2
__________XXXXX__________ => 5
____XXXX___XXX__XXXXX____ => 4,3,5
  2. or download this
    sub template
{
...
   $r =~ s/_+/_/g;
   return join ',', map { length($_) } split(/_/,$r);
}
  3. or download this
    s/(X+)/length($1)/g;