Gah, I'm an idiot...

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

should be

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

or there won't be a capture of the number.