create function palindrome(text) returns boolean 
language plperl 
immutable
as '

  my $arg = shift;
  my ($canonical = lc $arg) =~ s/\s+//g;
  return ($canonical eq reverse $canonical) ? "true" : "false";

';