chomp(@exeDllLines); my @dllarray; foreach (@exeDllLines) { /\.dll$/ && do { push @dllarray, "[$_]"; next; }; /\.exe$/ && do { push @dllarray, $_ ; next; }; }