#!/usr/bin/perl
my @office_patterns = ('^\d{3}-\d{4}$');
my @international_patterns = ('^[+]\d \d{3} \d{3}-\d{4}$');

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


my @office_phones;
my $office_phones;
my @international_phones;
NUMBER: foreach $record {
  # Trim spaces.
  $record =~ s/^\s+//;
  $record =~ s/\s+$//;
  
  foreach $office_pattern (@office_patterns) {
    if ($record =~ /$office_pattern/) {
      push @office_phones, $record;
      next NUMBER;
    }
  }
  foreach $international_pattern (@international_patterns) {
    if ($record =~ /$international_pattern/) {
      push @international_phones, $record;
      next NUMBER;
    }
  }
}

print "$office_phones[0]", "\n";