sub explode($$;$) 
{
  my ($separator,$string,$limit) = @_;
  return split(/\Q$separator/, $string, $limit);
}