#!perl -p040
s/. ?/vec Ii,$&*3-getc,2/ge