Actually this code will fetch attribute having multiple values, i want only a single value that matches my pattern. The code above is not working. I even tried this one.

#!/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";
[download]