Recherche:

oui il manque quelque chose du genre:

my $fichier_sortie= 'chemin/de/sortie.txt';

sinon pour cette partie:

if ( $fichier =~ #(.*)/3G-(.*)\.log# ){
my $antenne = $1;
si tu veux...

si on part du principe que tous tes fichiers se trouvent dans le même dossiers et ont le même format de nom genre
$user:ls -1 Mon/Dossier

fic_Antenne1.log
fic_Antenne1.log
fic_Antenne2.log...