my @values = $something =~ /[^.,;!]*[.,;!]/g;