Select Code to Download

perl  -na -E "$x[$_][$c||0]=$F[$_] for 0..$#F; $c++} {say qq|@$_| for 
+@x"

BEGIN {
    $^H{'feature_unicode'} = q(1);
...
{
    say "@$_" foreach (@x);
}