The following is also possible (if not entirely legible):

    s g{.*?}g{$sub[$n++]}gg;
[download]

--
John.