my @files; open (CFG,"<$ENV{HOME}/bin/$configFile") or die "Cannot Open Config File: $!\n"; while (){ chomp; s/ \d+$//; @files = < $_ >; } close(CFG); print join ("\n", @files);