markdown-tidy



#!/usr/bin/perl

# extract and decode markdown content from HTML source

use warnings;
use strict;

use Path::Tiny;

my $infile = shift;
my $outfile = shift || $infile;

$_ = path($infile)->slurp_utf8;

s!.*?<div class=\"panel-heading\">!!s;
s!</?div[^>]*>!!g;
s!\S+png\S+!!g;

path($outfile)->spew_utf8($_);

1;