grep { length($_) > 0 } split /(..)/, $in;