Re: how to redirect output in different files

[space_monk]

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;

}