CREATE OR REPLACE FUNCTION find_in_set(text, text) RETURNS int AS '
    my $record = shift;
    my $strSearchList = shift;
    my @searchList = split(/,/, $strSearchList);

    for($i = 0; $i < scalar(@searchList); $i++)
    {
        if($record eq $searchList[$i])
        {
            return ($i+1);
        }
    }
    
    return 0;
' LANGUAGE 'plperl';