I don't know if that will address the OP's problems:
$ perl -wE'"6\x{0666}\x{07c6}"=~/\D/ or say "All digits"'
All digits
$ perl -Mutf8 -wE'"6٦۶߆६৬੬૬୬௬౬೬൬෬๖໖༦၆႖៦᠖᥌᧖᪆᪖᭖᮶᱆᱖꘦꣖꤆꧖꧶꩖꯶6𐒦𑁬𑃶𑄼𑇖𑋶𑑖𑓖𑙖𑛆𑜶𑣦𑱖𑵖𖩦𖭖𝟔𝟞𝟨𝟲𝟼𞥖6"=~m/\D/ or say "All digits!"'
All digits!
In reply to Re^2: unicode string comparison (perl 5.26)
by Tux
in thread unicode string comparison (perl 5.26)
by md351
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |