if ($line =~ /-\d*\.\d*/o)

becomes

if ($line =~ /-\d*\.\d*/o && $line =~ /\d/o)