CREATE FUNCTION totalcomp(integer, integer) RETURNS integer
    AS '
    my $a = ''test''; # ''- Экранирование кавычки.
    return $_[0] + $_[1];
    '
LANGUAGE 'plperl';

URL:
Обсуждается: https://www.opennet.ru/tips/info/153.shtml

• Как написать встроенную SQL функцию на Perl и экранировать одинарные к,Stanislaus, 10:51 , 03-Апр-07

В последних версиях этого не требуется, тк используются $[SMTHG]$:
create function foo(text,text) returns bool as
$$
my($text,$pattern) = @_;
return $text =~ /$pattern/i;
$$ language 'plperl[u]'