@chunks = $str =~ /[^.]+(?:[.][^.]+){0,3}/g;