Chaine de caractère

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

open(LIRE, "nomFichier") || die("erreur ouverture");
open(WRITE1, ">reception") || die("erreur écriture");
open(WRITE2, ">type") || die("erreur écriture");

my @buf=(); #déclaration et initialisation de @buf
my $type; #déclaration de $type
while(<LIRE>){ #tant qu'il y a des lignes à lire
    @buf=() if /INFO/; #si la ligne contient INFO, alors @buf=(), début d'un nouveau cycle
    if(@buf==1){ #si @buf ne contient qu'un seul élément, donc à la deuxième ligne
        /(\S*)/; #on sauvegarde le premier mot dans $1
        $type=$1; #on sauvegarde dans $type
    }
    push(@buf,$_) if /INFO/ .. /FIN IMPORT/; #on empile s'il s'agit du bon paragraphe

    if(/FIN IMPORT/){ #s'il s'agit de la ligne FIN IMPORT
        print WRITE1 @buf if $type eq 'Reception'; #on copie dans WRITE1 si $type vaut Reception
        print WRITE2 @buf if $type eq 'Type'; #on copie dans WRITE2 si $type vaut Type
    }
}

close(LIRE);
close(WRITE1);
close(WRITE2);

my $tampon;
my $ligne;

open(FICHIER, "nomFichier") || die("erreur ouverture");
open(WRITER1, ">reception") || die("erreur écriture");
open(WRITER2, ">type") || die("erreur écriture");

while ($tampon=<FICHIER>) # Je crois qu'on peut faire comme ça
{
    while($tampon eq "\n"){ #au cas où il y a des lignes vierges entre les paragraphes
        $tampon=<FICHIER>;
    }
    $ligne=<FICHIER>;
    if ($ligne =~ /Reception/ ){
        print WRITER1 "$tampon";
        print WRITER1 $ligne;
        while ($ligne !~ /FIN IMPORT/){
            $ligne=<FICHIER>;
            print WRITER1 $ligne;
        }   
    }   
    elsif ($ligne =~ /Type/){
        print WRITER2 "$tampon";
        print WRITER2 $ligne;
        while ($ligne !~ /FIN IMPORT/){
            $ligne=<FICHIER>;
            print WRITER2 $ligne;
        }
    }
}   

close(FICHIER);
close(WRITER1);
close(WRITER2);

while($ligne=<FICHIER>){
   $tampon=$ligne;
}

Use of uninitialized value $info in concatenation (.) or string at ./lami.pl line 10, <FICHIER> line 2.
...
Use of uninitialized value $info in concatenation (.) or string at ./lami.pl line 11, <FICHIER> line 24.