http://www.perlmonks.org?node_id=11106165


in reply to Just another JAPH

No END at the end.
#!/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,