institutions.pl

foreach my $j (@institutions){
    if($j eq '-'){
        next;
    }
    $j=setnull($j);
    #do_sql(...)
}

sub setnull{
    my ($val)=@_;
    #print "setnull orig $val\n";
    $val=~s/\'+/\'/g;
    $val=~s/\'/\'\'/g;
    $val=~s/\A\-\Z//;
    if($val eq ''){
        $val="null";
    }else{
        $val="\'$val\'";
    }
    #print "setnull  $val\n";
    return $val;
}