regex - perl の検索文字列内のインライン複数一致

Question

astyle の実行後に特別なインデントを付けたい OpenGL コードがあります。例えば、

glBegin(GL_LINES);
glVertex2f(1.0f, 2.0f);
glVertex2f(1.0f, 2.0f);
glVertex2f(1.0f, 2.0f);
glVertex2f(1.0f, 2.0f);
glEnd();

上記のコードを以下のようなものに変更したいと思います。

glBegin(GL_LINES);
    glVertex2f(1.0f, 2.0f);
    glVertex2f(1.0f, 2.0f);
    glVertex2f(1.0f, 2.0f);
    glVertex2f(1.0f, 2.0f);
glEnd();

この特別なケースでは、glBegin と glEnd の間にあるものは何でも、4 つの空白だけシフトしたいと考えています。

これをインラインで perl を使用して実行したいと考えています。