my $count = () = /\d/g;