# presume string is in $_
s/\\(.)/"_L_E_F_T".ord($1)."_R_I_G_H_T"/eg;
_O_P_E_R_A_T_I_O_N;
s/_L_E_F_T(\d+)_R_I_G_H_T/pack(C,$1)/eg;
