# Get rid of all non-digits
$number =~ s/\D//g;

# Break the number into groups of digits
my $phone = substr($number,0,10);
my $extension = substr($number,10);