while (<FILE>)
{
	my @data;
	if (@data = /\b(\d+)\b\s+(\d+\.\d+)\s+(\d+\.\d+)\s+(\d+\.\d+)/)
	{
		print "@data\n";
	}
}