I'm not sure exactly what you want for output, but the problem that you identified, having to do with $sub_args , seems to be associated with $quotelike. Try using

qr/(["'])($bareword)*(["'])/
[download]

instead of

qr/((['"]).+?\2)/
[download]

The output with that change is:

$f->readOnly(
                -name => $session{form}{cid},
                -label => WebGUI::International::get(469,"WebGUIProfil
+e",
   );
[download]

That way, the quoted portion is recognized as part of $subroutine.