You should check for a number before or after the decimal like so:

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

-. won't match.