In Perl, an empty string is deemed to be false, therefore it will stop the while loop.

The while loop should probably be amended to check for definedness rather than truth. I cannot test now on my mobile device, but will come back with a proposed solution as soon as I get a chance to test it.