Select Code to Download

sub inclusive {
  my ($big, $little) = @_;
  $big =~ join(
...
    join('', sort split //, $little) =~ /((.)\2*)/gs;
  );
}

sub inclusive {
  ($chunk, $word) = @_;  # sorry, no 'my' here
  my $r;
...
  }x;
  scalar $chunk =~ $r;
}