for (<DATA>) {
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
do {
$x = 10 * $x % $y;
$n++
} until $h{$x};
print "$X/$y => ", ($x ? $n : $x), "\n"; }
__DATA__
1234 555
Zm9yICg8REFUQT4pIHsKKCRYLCAkeSkgPSBzcGxpdDsKJHggPSAkbSA9ICRYICUgJHk7Cm15ICgkbiwgJWgpOwokaHskeH0gPSAxOwpkbyB7CiR4ID0gMTAgKiAkeCAlICR5OwokbisrCn0gdW50aWwgJGh7JHh9OwpwcmludCAiJFgvJHkgPT4gIiwgKCR4ID8gJG4gOiAkeCksICJcbiI7Cn0KX19EQVRBX18KMTIzNCA1NTU=