#!/usr/bin/perl -i
+use warnings;
+use strict;
+
undef $/; # process whole files at once
my $regex = qr{
\]\] # directive closed
}sx;
-sub handle_directive($$$$) {
+sub handle_directive {
my $escape = shift;
my $prefix = shift;
my $directive = shift;