chomp(@exeDllLines); my @dllarray = grep { /\.(?:dll|exe)$/i } @exeDllLines; #### chomp(@exeDllLines); my @dllarray; foreach (@exeDllLines) { push @dllarray, $_ if /\.(?:dll|exe)$/i; } #### chomp(@exeDllLines); my @dllarray; push @dllarray, grep { /\.exe$/i } @exeDllLines; push @dllarray, map { "[$_]"} grep { /\.dll$/i } @exeDllLines; #### chomp(@exeDllLines); my @dllarray; foreach (@exeDllLines) { /\.dll$/ && do { push @dllarray, "[$_]"; next; }; /\.exe$/ && do { push @dllarray, $_ ; next; }; }