Help for this page
#!/usr/bin/perl ... $dom->find('a.second')->first->parent->remove; print $dom->content;
<html> <head> ... </ul> </body> </html>