#!perl -p040
s/. ?/vec AaZ,$&*4+getc,2/ge