my $temp = "";

##</code><code>##

while ( <> ) {
	$temp .= $_."\n";
}