use English qw( -no_match_vars ); 
my $LIST_SEPERATOR = q{|};