http://www.perlmonks.org?node_id=63968


in reply to What the heck does this mean?

Running it through the deparser, I get:
if (/^coclli=(.*)/ and $coclli eq '') { $coclli = $1; }
It's using a regex to assign to $coclli if the variable isn't already assigned.

The deparser is available in Perl 5.005 and up, as:

japhy% perl -MO=Deparse program_name


japhy -- Perl and Regex Hacker