my $p = Number::Phone::Lib->new("BR", "08522222222"); print $p->format; gives +55 85 2222 2222; the source data contains a <format>$1 $2-$3</format> line which it might be good to utilise, so the output (here, or with another function?) was +55 85 2222-2222.
my $p = Number::Phone::Lib->new("BR", "08522222222"); print $p->format;
gives+55 85 2222 2222
; the source data contains a<format>$1 $2-$3</format>
line which it might be good to utilise, so the output (here, or with another function?) was+55 85 2222-2222
.