Select Code to Download

sub encode {
    (my $string = shift) =~s/((.)\2*)/$2 . (length $1) /eg;
    $string;
}

sub group {
  my $x = shift;
...
         }{}gx;
  \@groups;
}