use strict;
use warnings;
use XML::LibXML;

my $doc = XML::LibXML->new->parse_fh(\*DATA);

print
    "All about me-\n",
    "      Version: ", $doc->version, "\n",
    "     Encoding: ", $doc->encoding, "\n",
    "   Standalone: ", $doc->standalone, "\n";

__DATA__
<?xml version="1.0" encoding="UTF-8"?><sample></sample>


##</code><code>##

All about me-
      Version: 1.0
     Encoding: UTF-8
   Standalone: -2