My JAPH has evolved

#!/usr/bin/env perl

use 5.026.1;
no strict;

format =
.
BEGIN { use SelfLoader; open 0;

    sub { @_[$[] = @_[$#_-@_] }->( *::->{(v95)}->$*,<0> );

    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<~"\@_" :  \@_, write && ()
                \@_,
                \@_
})rgx }

Just another Perl hacker,
[download]