split /(?<=..)/, $in;  # johngg is right...bad answer

##</code><code>##

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