CREATE FUNCTION format_link(text,text)
RETURNS text AS '
  return qq[<a href="http://www.domain.com/$_[0]" class="body_link">$_[1]</a>];
' LANGUAGE 'plperl';