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

my $fichier_sortie = 'sortie.txt';
open my $sortie,  '>', $fichier_sortie  or die "Can't open $Fichiersor
+tie: $!";
while (<>){
    chomp;
    my $voir = $_;
    $voir =~ s/o/y/g;
    say {$sortie} $voir;
}
    close $sortie;