#!/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";
}