s|
    {.*?}
 |
    {$sub[$n++]}
 |gx;