Arithmetic

use v6;

for '054-1234567', '054-0123456' -> $str {
    if $str ~~ m/ ^ \d+ '-' <+digit - [0]> \d+ $ / {
        say "$str is a phone number (using character class arithmetic)";
    }
}

#  <[\d] - [0]>  will also work...