Um... You need to escape that full stop.

>perl -e "print 'match' if '1234X789' =~ /^(-?)(\d+.)?\d+$/"
match