-#!/usr/bin/perl -0 -CO
+#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
+use open ':std', OUT => ':utf8';
use Encode 'decode';
use Data::Dump 'pp';
use Getopt::Long;
) or die;
local $| = 1;
+local $/ = "\0";
my $HEADERMATCH = qr/ [a-z]+ (?: (?:-\w+)+ | \ by ) /ix;