if (/^coclli=(.*)/ and $coclli eq '') { $coclli = $1; } #### japhy% perl -MO=Deparse program_name