Select Code to Download

while (<>){
    chomp;
...
    $voir =~ s/o/"y"/gem;        
    say $voir;
}

while (<>){
    chomp;
...
    say $sortie $voir;
    close($sortie);
}