while (<FILE>)
{
	my $line = $_;