blob: a67d205ccd8b724101fe5f7077a6effd06a56efc (
plain)
- #!/usr/bin/perl
- # drop content above initial headline - i.e. treat it as editorial noise
- use warnings;
- use strict;
- use Path::Tiny;
- use HTML::Entities;
- my $infile = shift;
- my $outfile = shift || $infile;
- $_ = path($infile)->slurp_utf8;
- s!.*?\n= != !s;
- path($outfile)->spew_utf8($_);
- 1;
|