1 #!/usr/bin/env perl
2 
3 use v5.10;
4 use strict;
5 use warnings;
6 
7 my $page = shift or die 'missing page';
8 my @pages = ();
9 
10 while (<>) {
11 	chomp;
12 	@pages = (@pages, $_);
13 }
14 
15 my $did = 0;
16 for (@pages) {
17 	if (!$did) {
18 		$did = 1;
19 	} else {
20 		print "| ";
21 	}
22 
23 	my ($href, $text) = m/^([^\s]*)\s*(.*)$/;
24 	if ($href eq $page) {
25 		print "<strong>$text</strong> ";
26 	} else {
27 		print "<a href='$href'>$text</a> ";
28 	}
29 }
30 
31 say "";