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