Help for this page

Select Code to Download

Select or download this

local $/ = undef;
my $input = <$inputfile>;
my( @txtFiles ) = $input =~ m/\s(\S+\.txt)\s/g;