#!/bin/perl -p

s#\D*(\d{3})\D*(\d{3})\D*(\d{4})#(${1}) ${2}-${3}#s;

##</code><code>##

adhjfgl
123ab786YT789034
asdf123ab786YT789034
(123) 786-789034
123ab786YT7890bc
1234567890 

##</code><code>##

adhjfgl
(123) 786-789034
(123) 786-789034
(123) 786-789034
(123) 786-7890bc
(123) 456-7890