if (/^coclli=(.*)/ and $coclli eq '') {
    $coclli = $1;
}