Yes, I apologize. It does work for numbers with decimals. I didn't test your code initially but was eyeballing it. I should have done so. For some odd reason, though, mine works now to trigger upon the decimals too, just as yours. I modified it a little to improve it:
Code:
on $*:text:/(.*?\44?\d{3}\54?\d{3,}.*)/S:#:{
  .msg # The number $regml(1) was said.
}
You're welcome to make a comparison between these two methods and see which one is more efficient.