String Length Comparisons for Perl 5