$cnt = @{[$str =~ /(\.)/g]};