Sorry, but it's entirely unclear to me how your input transforms to your output under those variables. It looks like you're trying to cook up a wiring control or some such from a netlist, but I'm not familiar with the format.

Some general comments that may help:

• You're doing a lot of regular expression matches "=~" when it looks like all you need is string equality "eq". The distinction is particularly important because you're trying to match characters like . and * which are meaningful in regular expressions.
• You don't have to process the file one line at a time. If a block is delimited by .ENDS, for example, you can tell the diamond operator that it should stop at those rather than at newlines by setting $/. TheDamian once describe this variable as "it tells Perl when to stop reading"; that's the most useful characterization I've heard.
  In other words, you can do:

  {
      local $/ = '.ENDS';
      @blocks = <INPUT>; #or whatever
  }
  [download]

  and the @blocks array will contain the chunks of the file (with newlines embedded) that were separated by that symbol.
• If you need to break up the parts of a block by where white space occurs, the split function is great for that. I say this because your for ($line) { statement makes me think you want to say "for each thing in the line"; the code you have will keep looping until $line is an empty string (or zero). Good way to hang up your program if you don't change it....

All this stuff is by use of the PSI::ESP module. I hope I've guessed right. If not, please post a reply with clarifications.