Here's a regex-less solution:

sub parse_phonenumber
{
    local $_ = shift;
    tr/()\- //d; # eliminate punctuation
    my( $are, $three, $four );
    my $line = substr $_, -4, 4, '';
    my $exch = substr $_, -3, 3, '';
    my $area = substr $_, -3, 3, '';
    ( $area, $exch, $line )
}
[download]