Select Code to Download

sub substrings {
  my $string = shift;
...

  return @result;
}

sub substrings {
  local $_ = shift;
...
  do { push @result, /(?=(.+)$)/sg; chop } while (length);
  return @result;
}