s/a/substr($b,0,1)/e ;
   s/b/substr($b,1,1)/e ;