my $x = () = /\d\D*/g;