$num = $1 if $string =~ /\d[\d.()\s-]{5-18}/;