my($file, $comment) = /^(\S+)\s*(.*)/;