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