Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
my $string = 'some text ###RAND{1a|###RAND{2a|2b|2c|###RAND{3a|3b|3c|3
+d}|2d}|1b|1c|1d} some text';
...
        my $randomelement = $array[ rand @array ];
        return $randomelement;
}

Select or download this

@_ = (
       '3a|3b|3c|3d'
...
  at play.pl line 18.
some text 1d some text
some text 1d some text