Remember, however, that '0' is false, hence will be filtered out. Better, perhaps, to use
    grep { length $_ }