#!/home/freetool/bin/perl5

open(CLI,"datablitz_dump") or die "datablitz_dump not found\n";

$iline = 0;

while(<CLI>)
  {
  if (/^Dn:/)
    {
    $iline++;
    #   ($dn1)= $_ =~ /^Dn: \w+ (\w+ = \d+)/;
    $trav=$_;
    $nbwd = ($trav =~ s/(\w+\s+=\s+\d+)//g);
    $trav=$_;
    $trav=~ s/Dn: //;
    $walknbwd[$iline][0] = $nbwd;
    for ($i=1;$i<=$nbwd;$i++)
      {
#      ($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}/);
      }

##</code><code>##

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

##</code><code>##

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