while () { chomp; s/^0//; s/\.0([^\.])/.$1/g; print $_ . "\n"; }