$string = readline TEST;

##</code><code>##

while
(	<TEST>
)
{
	chomp $_;
	$string .= $_ ;
}