my $count = () = /\w+/g;