print "Say ", ( m!([^,]+)!g )[ scalar rand( tr!,!! ) ], "\n";

##</code><code>##

print "Say ", ( /[^,]+/g )[ rand 1 + tr/,// ], "\n";