You can use
File::Basename to break out the part of your filename you are interested in.
use strict;
use warnings;
use File::Basename;
for my $infile (@ARGV) {
my $fname = basename( $infile);
# replace the part of the filename you want to change
$fname =~ s/list/out/;
# add the target directory to it.
my $outfile = 'outfile/'.$fname;
open my $ih, "<$infile" or die("Cannot open $infile");
open my $oh, ">$outfile" or die("Cannot open $outfile");
{
local $/ = undef;
<$ih>; # slurp the file
# sure you want to replace whitespaces with returns?
# also may need to alter this as operates on whole file now
s/\s+/\n/g; # global replace
print $oh;
}
close $ih; close $oh;
}
If you spot any bugs in my solutions, it's because I've deliberately left them in as an exercise for the reader! :-)