my $xml;
while (<SITE>) {
	$xml .= $_;
}

##</code><code>##

my $xml;
{
   local($/);
   undef $/;
   $xml = <SITE>;
}