in reply to regexp and a perl function

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

[download]
Boris

In Section Seekers of Perl Wisdom