my @words = ($s =~ /([^*]+)/g);