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