$text !~ /^[a-z0-9,]*$/i

##</code><code>##

$text =~ /[^a-z0-9,]/i