my @options = qw( foo bar );
my $string = $options[ rand @options ];
$string =~ /(foo)/;
$string =~ /(bar)/;
print $1;