solution to project euler question #8 ( perl )