my @x = $str =~ m{(.*?)}g;