$_ = 'apple,banana,cherry';
print "Say ", (m!([^,]+)!g)[ scalar rand 1 + (tr!,!!) ], "\n";

##</code><code>##

$foo = 'apple,banana,cherry';
print "Say ", ($foo =~ m!([^,]+)!g)[ scalar rand 1 + (tr!,!!) ], "\n";