$foo = strip_tags($source, '<body>, <a>, <br>, <strong>, <b>, <i>, <em>, <font>');
ereg ("<body([^>.]+)>(.+)</body>", $foo, $regs);
echo $regs[2];