Select Code to Download

$" = '';
$\ = "\n";

...
  E -- J
  I -- J
}

$" = '';
$\ = "\n";

...
  E -- J
  I -- J
}

$" = '';
$\ = "\n";

...
  E -- J
  I -- J
}

$" = '';

chomp( my @edges = grep /\w -- \w/, <DATA> );
...
  J -- H
  J -- I
}