qr/(["'])($bareword)*(["'])/ #### qr/((['"]).+?\2)/ #### $f->readOnly( -name => $session{form}{cid}, -label => WebGUI::International::get(469,"WebGUIProfile", );