tie @lines, 'Tie::File', 'file' or die ...;
        for (@lines) {
          if (/<!-- insert here -->/) {
            $_ .= $text;
            last;
          }
        }
        untie @lines;