use English qw( -no_match_vars );

{
local $LIST_SEPARATOR = q{|}; 
}