opendir (DIR, ".") or die "$!"; my @files = grep {/conf.*?\.txt/} readdir DIR; close DIR; print"\nNo input files found.\n" if scalar(@files)==0; foreach my $file (@files) { my $content = do { local( @ARGV, $/ ) = $file ; <> } ; print "parsing $file...\n"; my ($inc_vals)=$content=~/inc_vals=(.*?)\n/ my @inc_vals=split(/, /, $inc_vals) unless $inc_vals=~/^\s$/; } foreach my $value (@inc_vals) { print "$value\n"; }