Select Code to Download

#!/usr/bin/env perl

#!/usr/bin/env perl

...
use strict;
use warnings;
...

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -E'
...
$ perle 'no warnings "experimental::postderef"; use feature qw{postder
+ef postderef_qq}; my $x = [qw{a b c}]; say "@{$x}"; say "$x->@*"'
Unknown warnings category 'experimental::postderef' at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

...
use version; our $VERSION = qv("v1.2.3");               # deprecated
...
our $VERSION = "1.0203";                                # recommended
...

...
{
...
        ... s/$re/_/gr;
    }
}

$ perle 'my $re; BEGIN { $re = qr{(?x: [%/?<>\\:*|":] )} } say q{%/?<>
+\\:*|":} =~ s/$re/_/gr'
___________
...
       Rate     s     y
s  222651/s    --  -96%
y 5600560/s 2415%    --

{
    my @uris;
...
        ...
    }
}