I want to adapt this to identify $ref as a negative integer.

then you want:

($ref  =~ /^-[1-9]\d*$/)
[download]

(i.e. change !~ to =~)

hope this helps,