This works too: my $x = "9.0v1"; die "Horribly" if $x =~ /[\p{L}]+/;
Art On Thu, Aug 2, 2018 at 8:18 AM Timo Paulssen <t...@wakelift.de> wrote: > Is this what you want? > > perl6 -e 'say "12345" ~~ /^<+alnum -alpha>+$/' > 「12345」 > > perl6 -e 'say "123a45" ~~ /^<+alnum -alpha>+$/' > Nil > > HTH > - Timo > -- ================================== Arthur Ramos Jr. 207 Wisner Avenue Middletown, NY 10940 ================================== "Don't dig in against Bob Gibson, he'll knock you down. He'd knock down his own grandmother if she dared to challenge him. Don't stare at him, don't smile at him, don't talk to him. He doesn't like it. If you happen to hit a home run, don't run too slow, don't run too fast. If you happen to want to celebrate, get in the tunnel first. And if he hits you, don't charge the mound, because he's a Gold Glove boxer." ~ Hank Aaron's advice to Dusty Baker