#!/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<<~"\@_" : \@_
                    \@_,
                    \@_
})rgx } END { write or die }

Just another Perl hacker,