massive quotes?

What is the state of things regarding having to use massive strings of 
quotes like this (taken from the 7.3 docs)?:

a_output := a_output || '' if v_'' ||     referrer_keys.kind || '' like ''''''''''     || referrer_keys.key_string ||
''''''''''    then return ''''''  || referrer_keys.referrer_type     || ''''''; end if;''; 
 

This is truly ugly, IMNSHO. Perl has its q() construct - any chance of us doing something here?

I'm prepared to put in effort to implement a solution if there is agreement on what the solution should be. Maybe some
sortof magical operator/function?
 

cheers

andrew