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