in reply to 12 days of Perl?

s/%/ing,/
gives 339.

Update 335:

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^2: 12 days of Perl?
by johnaj (Sexton) on Apr 30, 2021 at 22:00 UTC

    Wow, that's a clever usage of $@!

Re^2: 12 days of Perl?
by WithABeard (Beadle) on May 09, 2023 at 12:07 UTC

    why the heredoc, is there an older version of perl that must be supported where simple strings could not be multiline?

    this is 333, works on 5.32 atleast: