#!/usr/bin/perl

use strict;
use warnings;

my @office_patterns        = ( '^\d{3}-\d{4}$' );
my @international_patterns = ( '^[+]\d \d{3} \d{3}-\d{4}$' );

my @records = (
  '662-5555',
  '+1 102 892-1314',
);

my @office_phones;
my $office_phones;
my @international_phones;
NUMBER: foreach (@records) {
  my $record = $_;

  # Trim spaces.
  $record =~ s/^\s+//;
  $record =~ s/\s+$//;

  foreach my $office_pattern (@office_patterns) {
    if ($record =~ /$office_pattern/) {
      push @office_phones, $record;
      next NUMBER;
    }
  }
  foreach my $international_pattern (@international_patterns) {
    if ($record =~ /$international_pattern/) {
      push @international_phones, $record;
      next NUMBER;
    }
  }
}

print "$_ (o)\n" for @office_phones;
print "$_ (i)\n" for @international_phones;