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