$data =~s/([^\n]{16})/pos($data)=0;ch($1)/ge;