I think your are chomping $ans in sub callandrespond and then testing it with sub tryagain5 while ($count < 5 and $ans =~ /^\s*\n/) which will fail I am pretty sure because you are testing if the string has a newline at the end, which it never will because you are chomping it.