Select Code to Download

',' x scalar @array;

m/.(?{ $array[ pos ] = do_smth(); })(*FAIL)/;

#!/usr/bin/perl -wl

...
    /x;

print $acc;

13
13

#!/usr/bin/perl -wl

...
    /x;

print "@A";

d c b a
<b> cmp <a>
...
--a b d c
--a b c d
a b c d

#!/usr/bin/perl -wl

...
    /x;

print "@A";

d c b a
<d> cmp <c>
...
--a b c d
--a b c d
a b c d

#!/usr/bin/perl -w

...
    (*FAIL)
    /x;
print "\n";

[1-2-3][3-abc-zz][zz-79-444]
[1-2-3][3-abc-zz][zz-79-444]
[1-2-3][3-abc-zz][zz-79-444]