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