13
Perl 6 (93 101 100 80 68 66 bytes)
$/=split ".",get;say ($0+($1+$2/(9 x$2.comb||1))/10**$1.comb).nude
The size was increased to handle nothing, instead of just failing. Mouq proposed to use $/, so it's now being used, and the code is 20 bytes shorter. Ayiko proposed replacing / with , so the c...