Help for this page
print "Say ", ( m!([^,]+)!g )[ scalar rand( tr!,!! ) ], "\n";
print "Say ", ( /[^,]+/g )[ rand 1 + tr/,// ], "\n";