Panasiai ir padariau.

^[0-9+]{1}[0-9/-]{1,19}$

Paskui su kitais dviem expr patikrinu kad nebutu simboliu - / daugiau nei 
vienas.

Gaila, kad i viena nepavyko sukyst. 


> perlu:
> $nr = '+370-1258';
> print "ok" if 
>    ($nr =~ /^(+|d)[-/0-9]+$/ &&
>     $nr =~ tr/-/-/ <= 1 &&
>     $nr =~ tr///// <= 1 &&
>     $nr =~ tr/[0-9]/[0-9]/ >= 2 &&
>     $nr =~ tr/[0-9]/[0-9]/ <= 20);