Well, I am anything but an experienced Data::FormValidator user, but I'll give it a whirl. I'm not sure why you only required 2 field, so I changed it to require all.

 use Number::Phone::US qw(is_valid_number);  #Format is easier to work
+ with than the simple constraints version
 my $profile = {
        required => [qw( p1 
                         p2 
                         p3 )],

        constraints => {
           p1      => {  
                constraint  => sub { my $val .= "$_-" for @_; chop $va
+l; is_valid_number($val)},
                params      => [ qw( p1 p2 p3 ) ],
        },
}
[download]

Feels ugly, and I haven't really worked with this module before. As always, YMMV.