perl tried to divide by zero using the strings ...