elsif (my ($entry) = /^\s*\Q$object->{type}\E-object\s+(.*)/) {