m/^^ \h* $$ $ret:=([^^ \# .* $$]+) $id/;