~/.perldb.hist

   1 b 36
   2 x $t->as_XML
   3 b 39
   4 x $t
   5 x $t->findvalue( '/html/body/comment()'
   6 $t->findvalue( '/html/body/comment()')
   7 x $t->findvalue( '/html/body/comment()')
   8 x $t->findvalue( '//comment()')
   9 x $t->findnodes( '//comment()')
  10 x map { $_->getValue } $t->findnodes( '//comment()')
  11 x $t->findvalue( '//comment()')
  12 $c= ($t->findnodes( '//comment()'))[0]
  13 x $c->as_text
  14 x $c
  15 x $c->string_value
  16 x $c->{text}