package TEST {

# Trenner bei Daten in Passwort-/Gruppendateien
our $DATA_SEPARATOR = q(::);
# Trenner bei mehrfachen Daten
our $DATA_SEPARATOR_MULTI = q(,);

*SPLITCHARS            = \$DATA_SEPARATOR;
*SPLITCHARS2           = \$DATA_SEPARATOR_MULTI;

sub test {
  if ( $blocked[$i] =~ /^\Q$user\E\Q$SPLITCHARS/ ) {
  }

};