Help for this page

Select Code to Download

Select or download this
```
$data =~ s/(....)(....)/$1/g;
```

Select or download this

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