#!perl

use strict;
use warnings; 
use autodie; # die if problem reading or writing a file
use feature qw(say);

my $input = "C:/Some/specific/path/to/file.txt";

open FILEin, $input;
my @input = <FILEin>;
binmode(FILEin);
undef $/;

foreach $input (@input) {
	my $dir = 'C:/Some/specific/folder';
	my @files = <$dir/*>;
	my $countf = @files;
	my $outfile = $dir.'/bladibla_'.$countf.'.txt';
		open FILEout, '>'.$outfile;
		print FILEout $input;
		close FILEout;
		say 'Wrote '.$input.' to '.$outfile;
}
	
close FILEin;

##</code><code>##

#!perl

use strict;
use warnings; 
use autodie; # die if problem reading or writing a file
use feature qw(say);

my $inbase = 'C:/Some/specific/folder';
my $outbase = 'C:/Some/other/specific/folder';
my $counter = @ARGV;

for my $file ($inbase.'/bladibla_'.$counter.'.txt') {

	my @outfiles = <$outbase/*>;
	my $countf = @outfiles;
	my $outfile = $outbase.'/bladibla_'.$countf.'.txt';
	
	open FILEout, '>'.$outfile;
	
	my $file = ($inbase.'/bladibla_'.$counter.'.txt');
		open FILEin, $file;
		my $contents = <FILEin>;
		binmode(FILEin);
	print FILEout $contents;
	close FILEin;
	
	say 'Wrote '.$contents.' to '.$outfile;
	
	$counter += 1;
	
	my $file2 = ($inbase.'/bladibla_'.$counter.'.txt');
		open FILEin, $file2;
		my $contents2 = <FILEin>;
		binmode(FILEin);
	print FILEout $contents2;
	close FILEin;
	
	say 'Wrote '.$contents2.' to '.$outfile;
	
	close FILEout;
	
	$counter += 1;
}