simplify

tests/bin/modelQaTestRoutines.pm

@@ -270,7 +270,7 @@ sub processTestSpec {
             next;
         }
         if (/^biases\s+/i) {
-            s%V\s*\(\s*%V(%;s%\s*\)%)%;
+            s/V\s*\(\s*/V(/;s/\s*\)/)/;
             s/V\(([a-zA-Z0-9]+),([a-zA-Z0-9]+)\)/V($1_$2)/; # convert V(n1,n2) to V(n1_n2)
             @Field=split(/[\s,]+/,$_);
             for ($i=1;$i<=$#Field;++$i) {

tests/bin/ngspice.pm

@@ -41,7 +41,7 @@ sub version {
         chomp;
         # Check whether this line is the one we are looking for.
         # Also the term in parenthesis "()" stores the number to $1 which we can reuse later.
-        if (s/.+ngspice-([0-9]+)//) {
+        if (m/.+ngspice-([0-9]+)/) {
             # Simple read the stored group from the matching in the if clause
             $version=$1;
             last;