cperl-not-bad-style-regexp

cperl-not-bad-style-regexp is a variable defined in `cperl-mode.el'.
Its value is

"[^-	 <>=+]\\(--\\|\\+\\+\\)\\|[a-zA-Z0-9_][|&][a-zA-Z0-9_$]\\|&[(a-zA-Z0-9_$]\\|<\\$?\\sw+\\(\\.\\(\\sw\\|_\\)+\\)?>\\|-[a-zA-Z][ 	]+[_$\"'`a-zA-Z]\\|-[0-9]\\|\\+\\+\\|--\\|.->\\|->\\|\\[-\\|\\\\[&$@*\\\\]\\|^=\\|\\$.\\|<<[a-zA-Z_'\"`]\\|||\\|&&\\|[CBIXSLFZ]<\\(\\sw\\|\\s \\|\\s_\\|[\n]\\)*>\\|-[a-zA-Z_0-9]+[ 	]*=>"

Documentation:
If matches at the start of match found by `my-bad-c-style-regexp',
insertion of a whitespace will not help.