$result =~ /^-?\d+\.?\d+$/ 

to

$result =~ /^-?\d+\.?\d*?$/