in reply to Recurring Cycle of Fractions

/\.\d*?(\d+?)\1+(?!(??{ '.' x length($1) }))/

[download]

In Section Seekers of Perl Wisdom