Name	Size	Mode	Actions
hanchors	1196	0755	editdlrm
hbody	729	0755	editdlrm
hdisable	740	0755	editdlrm
hdump	708	0755	editdlrm
hform	2502	0755	editdlrm
hlc	717	0755	editdlrm
hrefsub	3068	0755	editdlrm
hstrip	1767	0755	editdlrm
htext	612	0755	editdlrm
htextsub	936	0755	editdlrm
htitle	461	0755	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;