Like to learn to write this program in perl String r = ""; int p = 2; while (n > 1) if (n%p == 0) { r += (p+","); n /= p; } else p++;