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

##</code><code>##

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