foreach $line (@exeDllLines) # loop thru list { chomp($line); # chop off trailing newlines #find exe print "$line"; if( $line =~ m/exe/ ) { $line = "[$line]"; push @dllarray, $line; } if( $line =~ m/dll/ ) { push @dllarray, $line; }