while(<IN>)
{
undef ($/);
$string=$_;