johngg@abouriou:~/perl/Monks$ perl -E 'say 0.6505 / 0.0001;'
6505