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