how print out the output in a new file perl - perl

Question

How can I print in a directory the output of the variable $newFile ? How can I use 'cp' to do that ?
After modifications, my code looks like this :
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use File::Copy 'cp';
# binmode(STDOUT, ":utf8") ;
# warn Dumper \#repertoire;
my #rep= glob('/home/test/Bureau/Perl/Test/*'); # output to copy in this dir
foreach my $file (#rep)
{
open(IN, $file) or die "Can't read file '$file' [$!]\n";
while (<IN>)
{
my ($firstCol, $secondCol) = split(/","/, $_);
$firstCol =~ s/http:\/\//_/g;
$secondCol =~ s/\(.+\)/ /ig;
my $LCsecondCol = lc($secondCol);
chomp($secondCol);
chomp($LCsecondCol);
my $newFile = "$firstCol:($secondCol|$LCsecondCol);";
$newFile =~ s/=//g;
print "$newFile\n";
}
close(IN);
}

Answer 1

Your program is a long way off even compiling. You should pay attention to these details
With use strict in place, as it should be, you must declare all of your variables at their point of first use. The variables #files, $file, and $newFile are undeclared so your program won't compile
glob in scalar context returns the next file name that matches the pattern, and is meant for use in a while loop. To get all of the files that match the pattern you should assign to an array, and from the commented-out warn statement it looks like your code used to be that way
You should use lexical file handles and the three-parameter form of open. Well done for checking the status of the open and putting $! in your die string
Your $file =~ ... line looks like it should be a substitution, and the parenthesis at the end should be a semicolon
You have used File::Copy but then use system to copy your files. You should avoid shelling out wherever convenient, and since File::Copy provides a cp function you should use it
Something closer to a working version of your code would look like this
use strict;
use warnings;
use File::Copy 'cp';
while (my $fileName = glob '/home/test/Bureau/Infobox/*.csv') {
my #files = do {
open my $in, '<', $fileName or die "Can't read file '$fileName' [$!]\n";
print "$fileName\n" ;
<$in>;
};
foreach my $file (#files) {
my $newFile = $file =~ s/(\x{0625}\x{0646}\b.+?)\./[[ ]]/gr;
cp $file, $newFile;
}
}