my @list = split /([\W]+)/, 'one;two--three!!!';