($description, $UIC1, $UIC2, $UIC3) = split(/,+/);
         print TEXT;