Select Code to Download

#!/home/freetool/bin/perl5

...
#      ($bid,$dns[$i-1]) = ($trav =~ /(\w+\s+(\w+\s+=\s+\d+),*\s*){$i}
+/);
      ($bid1,$bid2,$walkdns[$iline][$i-1],$walkdnval[$iline][$i-1]) = 
+($trav =~ /(\w+\s+((\w+)\s+=\s+(\d+)),*\s*){$i}/);
      }

perlprog[3]: syntax error at line 3: '(' unexpected

perlprog[3]: open: not found
perlprog[5]: =: not found
perlprog[7]: syntax error at line 7: ')' unexpected