#!/usr/bin/perl
use strict;
use warnings;

# declaration de tableau
my @table;

#boucle de lecture du fichier
while (<>)
{
    # suppression du retour à la ligne
    chomp;
    if ($_=~ /(\d\d-\d\d-\d\d-\d\d-\d\d)/)
    {
        push(@table,$1);
    }
    elsif ($_=~ /(\+33-\d-\d\d-\d\d-\d\d-\d\d)/)
    {
        push(@table,$1);
    }
    
}

print "numeros de telephone :\n", join ("\n",@table), "\n";
