Select Code to Download

% perl -E'say for&{sub{"\U\x{fb01}\x{fb03}"=~/.{0,2}.{0,3}.{0,3}.{0,4}
++(?{$_[++$#_]=rand})(*FAIL)/||pop;@_}}'

% perl -E'say for(*100=sub{$_[0]?(rand,(*{$_[0]-1}=*{$_[0]})->($_[0]-1
+)):()})->(100)'

use 5.010;

...
                                                            @{ (*_{ARR
+AY})     }
    }
}

#!/usr/bin/perl -l

...
                }
    )->( 100 );
}