#!/usr/bin/perl -w
use strict;

my @words;

open FH, "banned.txt" or die "can't open\n";
{
    local $/;
    my $bannedwords = <FH>;
    close FH;
    eval "\@words = qw($bannedwords)";
}