有効な電話番号のみを行内に表示するPerlスクリプト？

Question

有効な電話番号のみを含む行を行内に表示するPerlスクリプトを作成するにはどうすればよいですか？

（888）.888-8888は有効な数値で、8は任意の数値であるとします。ここで

So the sample input is 

this is nota number 
3214235234 
(410).977-2132 
my num is ((410.222-1231)) 
test 234 test 

Output: 
(410).977-2132 
my num is ((410.222-1231)) 

は、私がこれまで

if ($string =~ /^(?:(?:\+?1\s*(?:[.]\s*)?)?(?:\(\s*([.][2-9]1[02-9]|[2-9][02-8]1|[2-9][02-8][02-9])\s*\)|([2-9]1[02-9]|[2-9][02-8]1|[2-9][02-8][02-9]))\s*(?:[.-]\s*)?)?([2-9]1[02-9]|[2-9][02-9]1|[2-9][02-9]{2})\s*(?:[.-]\s*)?([0-9]{4})(?:\s*(?:#|x\.?|ext\.?|extension)\s*(\d+))?$) { 
     # is a number 
    } else { 
     # is not 
    } 

を持っているもので、私は私が間違った正規表現を持っているかもしれないと思います。あなたは助けてもらえますか？でラインをキャッチする

Answer 1

： （888）0.888から8888 または （（888.888から8888））は あなたは、この正規表現を使用することができます

if ($string =~ /^.*?\({0,2}\d{3}\){0,2}\.\d{3}-\d{4}\){0,2}/) { 
    # is a number 
} else { 
    # is not 
}