while (<FILE>)
	{
		my $entry=$_;
		$entry =~ s/[\n\r]//g;
        }