$data =~ s/(....)(....)/$1/g;

##</code><code>##

@characters = <DATA> =~ /(.) /g;
while(@characters) { push @pairs, [shift @characters, shift @characters] }
@selection = map { $pairs[$_*2] } (0..@characters/2);