perl -wle "print qq(\x30)"
0
[download]

The while statement takes an expression and looks at it in terms of Perly truthiness. The strings '' and '0' are false in boolean context for Perl.

Most likely, you simply want to check for the length of your string while removing things from it.