my $countrycode = $number =~ s/^(?: $idp | \+ ) ( \d{2} )//x ? $1 : ''; # TODO: countrycodes can have more or less than 2 digits
$number =~ s/^0//x if $countrycode; # kill non standard optional zero after global identifier
my $countrycode = $number =~ s/^(?: $idp | \+ ) ( \d{2} )//x ? $1 : ''; # TODO: countrycodes can have more or less than 2 digits
$number =~ s/^0//x if $countrycode; # kill non standard optional zero after global identifier