my ($current) = $input =~ /^\s*[\d.]+\s+/ or do {