$s =~ s>{.*?}
       >{$sub[$n++]}
       >gx;