my @terms = $ARGV[0] =~ /(\d{3})(\d{3})(\d{4})/;
my $re = qr/^\(?$terms[0]\)?-?$terms[1]-?$terms[2]$/;