use strict; use warnings; open (IN1, "output_file.vhd") or die; open (IN2, "; my @enabled_nets = ; chomp @nets; chomp @enabled_nets; while () { print OUT; foreach my $i (0..$#nets){ print OUT if (s/\=\>\s+$nets[$i]\,/\=\> $enabled_nets[$i]\,/); #} } close (IN1); close (OUT); close (IN2); close (IN3);