{ my @ss;
  sub substrings {
    @ss = ();
    $_[0] =~ /.*?(.+?)(?{push @ss, $1})(?!)/;
    @ss;
  }
}