Wikipedia:Footnote3/numlink2note.pl
Appearance
$ref=0; @urls=(); while ( <> ) { while ( ($before,$url,$after) = m/(^|.*?[^[])\[([a-z][a-z0-9]+:[^][ ]+)\](.*)/i ) { $ref++; print $before, "{{ref|$ref}}"; $_ = $after; push @urls, $url; }; print $_; } print "\n\n==Notes==\n\n"; print "<!-- please replace numbered notes with names and remove this line-->\n"; $endnote=0; foreach (@urls) { $endnote++; print "# {{note|$endnote}} $_\n"; } print STDERR "printed $ref references and $endnote endnotes .. should be the same\n";