next if /^;/; #skip comments

##</code><code>##

next if /^;/xms; 

##</code><code>##

local $" = '|';

##</code><code>##

use English qw( -no_match_vars );

my $LIST_SEPERATOR = q{|};

##</code><code>##

use English qw( -no_match_vars );

{
local $LIST_SEPARATOR = q{|}; 
}