Select Code to Download

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;
}

some text ###RAND{1a|###RAND{2a|2b|2c|###RAND{3a|3b|3c|3d}|2d}|1b|1c|1
+d} some text
some text ###RAND{1a|###RAND{2a|2b|2c|3b|2d}|1b|1c|1d} some text
some text ###RAND{1a|2d|1b|1c|1d} some text
some text 1c some text