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