#!/usr/bin/env perl

use 5.026.1;
no strict;

format =
.
BEGIN { use SelfLoader;
    open *q, v60 , $0; s(.*)((<q>)[-1])e;
    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<~"\@_" :  \@_, write && ()
                \@_,
                \@_
})rgx }

Just another Perl hacker,
[download]