# Generates a list of [doc://*] tags from current 
# Perl function index for further verification.

use strict;
use warnings;
use LWP::Simple;

my $perlfunc_index_url = 'http://perldoc.perl.org/index-functions.html';
my $content            =    get( $perlfunc_index_url )
                         or die "Cannot get $perlfunc_index_url - $!";

foreach (split /\n/, $content ) {
  print "[doc://$1]\n" if m{href="functions/.*?">([^<]+)}; # I know...
}

__END__
[doc://abs]
[doc://accept]
[doc://alarm]
[doc://atan2]
[doc://bind]
...
[doc://-X]
[doc://y]