Select Code to Download

use XML::LibXML qw( );

...
$content =~ /(?(?{ !eval {
    $doc = XML::LibXML->new()->parse_string($_)
} })(?!))/;