Help for this page

Select Code to Download


  1. or download this
      1.2.3AAABB,AAB,AA,AAABBB
should give
...
  AABB,AAAB,ABBB
should give 
  qw(AA BB AAA B A BBB)
  2. or download this
    use strict;
sub chip{
...
    if(my(@rest) = $2 =~ /(A+) (B*) ,? /gx){
        unshift(@rest, $front);
        grep {$_} @rest}}}