my ($user, $lang, $desc, $published, $public ) =
     $line =~/([^\d]+)(\d+)\.([^\.]+)\.([^\.])\s+\(([^\)])\)/;