blob: 3e8bcb7ef22164b22385c014b39bc5bd79d43ca5 (
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;
|