next if /^;/xms; 

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

use English qw( -no_match_vars );
{
local $LIST_SEPARATOR = q{!};

my @list = qw/this is my list/;

print "@list\n";
}