Write a program in Perl which searches continuously for binary digits which match in phi, pi, and e. For each order of binary magnitude print how long the search took in fractions of a second (to the utmost), seconds, hours, and days. Whenever a matching digit or series of digits are found, print the index number, the digits themselves, the number of those digits, then continue the search.