Select Code to Download

#!/usr/bin/perl
use warnings;
...
say join ' ', $options[0] ? (shuffle(@acc)        )[ 0, 1 ] : (), # Ou
+tput 2 random values from @acc.
              $options[1] ? (shuffle(@sec, @third))[ 0, 1 ] : (), # Ou
+tput 2 random values from @sec and @third.
              $options[2] ? ('?') : (); # Replace ? by the expected ou
+tput for option 3.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,