Help for this page
my @arr = split(/\s+/, <>);
print "How many files do you want to combine?: "; my $numfiles = <>; ... $line =~ s/(^\s+)|(\s+$)//g; @filenames = split(/\s+/,$line); }