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