#!/usr/bin/env perl -w
# usage: script.pl words text >newfile
use English;

# poor man's argument handler
open(WORDS, shift @ARGV) || die "failed to open words file: $!";
open(REPLACE, shift @ARGV) || die "failed to open replacement file: $!";

my @words;

while ($_=<WORDS>) { 
  chop; # strip eol
  push @words, split; 
}

@words=sort { length($b) <=> length($a) } @words;

undef $RS;
$text = <REPLACE>;

foreach $word (@words) { 
     $text =~ s/\b\Q$word\E\s?//sg;
}

print $text;