Select Code to Download

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

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