Name	Size	Mode	Actions
hanchors	1196	0644	editdlrm
hbody	729	0644	editdlrm
hdisable	740	0644	editdlrm
hdump	708	0644	editdlrm
hform	2502	0644	editdlrm
hlc	717	0644	editdlrm
hrefsub	3068	0644	editdlrm
hstrip	1767	0644	editdlrm
htext	612	0644	editdlrm
htextsub	936	0644	editdlrm
htitle	461	0644	editdlrm

#!/usr/bin/perl use strict; use warnings; use HTML::Parser (); my $doc = <<'EOT'; Howdy! EOT my $body_offset; HTML::Parser->new( start_h => [ sub { return unless shift eq "body"; $body_offset = shift; shift->eof; # tell the parser to stop }, "tagname,offset,self" ] )->parse($doc); die "No found" unless defined $body_offset; my $head = substr($doc, 0, $body_offset, ""); print $doc;