Rearranges Markdown footer links so that the relevant links appear under each paragraph, instead of at the end of a document.

md-footer-organizer.pl

#!/usr/bin/perl 

use strict;
use warnings;
use diagnostics;

# Markdown Footer Link Organizer

# Rearranges Markdown footer links so that the relevant
# links appear under each paragraph, instead of at the
# end of a document.

# Serving Suggestions: Pipe text into lazylink_converter.pl
# from the command line or install as a BBEdit Text Filter.

# 2014 Josh Centers. http://joshcenters.com/

my $text;							# Our hero, the $text variable. 
local $/;							# Grab all the text.
$text = <>;							# Assign STDIN to our hero.

my @url_list = ($text =~ m/\[.*?\]\:.*/g);                      # Grab all the footer links and put them in an array.

$text =~ s/\s+\[.*?\]\:.*//g;                                   # Delete all the footer links.

foreach my $line (split /^/, $text) {
    print $line;
    my $separator_printed = 0;
    foreach ($line =~ m/\[.*?\]\[(.*?)\]/g) {
        my $link_number = $_;
         $separator_printed++ or print "\n";
        print grep(/(\[$link_number\]\:.*)/, @url_list);
        print "\n";
    }
}