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