#!/usr/bin/perl
use strict;
use warnings;
my @array;

my $record = "+1 102 892-1314";
$record = "662-5555";


if ($record =~ m/(^\d{3}-\d{4}$)/) {
   
   push @array, $record;
}

 print "@array";