howabout --

(@parts) = $string=~/(\w{2})/g;
print join ("|",@parts);
[download]

ÅßÅ×ÅßÅ "It is a very mixed blessing to be brought back from the dead." -- Kurt Vonnegut