#!/usr/bin/perl
use strict;
use warnings;
#my $file = @ARgV[1];
#my $file = "tarifs.ssv";
my $file = "test666.txt";  # Fichier normal donc la copie devrait le recopier entierement
my $file2 = "tarifs3.ssv"; # Fichier initialement vide qui contiendra le contenu du fichier $file
# Ouverture du fichier
open(FD1, ">$file2") || die "$file2 : $!";
open(FD2, $file)  or die "$file : $!";
my @lines=<FD2>;
foreach ( @lines ) 
{
	$_ =~ s/\w+/b/;
	print FD1 $_;
}
close(FD1);
close(FD2);