my %z={}; my $u=$ARGV[0]; open A,$u; while (<A>) { if ($_ =~ /=== (.*) ===/ ) { $z{$1}="|"; $p=$1; } } close A; my $u=$ARGV[0]; open A,$u; while (<A>) { $T=$_; if ($T =~ /=== (.*) ===/ ) { $c=$1; } if ($T =~ /Related items .children./ || $T =~ /""Related items""/ ) { my @l = $T =~ /\[\[([^\]]*)\]\]/g; foreach $mat (@l) { if ($z{$mat} && $z{$c} !~ /\|$mat\|/ ) { $z{$c}= ($z{$c} . $mat . "|"); } } } } close A; while (($k, $v) = each %z) { foreach $o (split(/\|/,$z{$k})) { print '"' . $k . '","' . $o . '"' . "\n" if ($o) ; } }