Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
substr( $rep, 0, $seen{$rem} )= '';
print "$num / $den = ...$rep\n";

 $ perl repDig.pl 97
1 / 97 = ...010309278350515463917525773195876288659793
...
 $ perl repDig.pl 2 97
2 / 97 = ...020618556701030927835051546391752577319587
628865979381443298969072164948453608247422680412371134