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

##</code><code>##

my %info;
while (<>)
{
	my @data;
	while (/\b(\d+)\b(?: and over)?\s+(\d+\.\d+)\s+(\d+\.\d+)\s+(\d+\.\d+)/gc)
	{
		$info{$1} = [$2,$3,$4];
	}
}

foreach (sort {$a<=>$b} keys %info)
{
	print "$_ ", join(' ', @{$info{$_}}), "\n";
}