in reply to using s/// as map?in thread how can I speed up this perl??
You could also use unpack
print unpack '(A2X)*', 'abcdefghijklmnopqrstuvwxyz'; ab bc cd de ef fg gh hi ij jk kl lm mn no op pq qr rs st tu uv vw wx x +y yz z [download]