#!/usr/local/bin/perl

# list dictionary definitions included with the HASBRO SCRABBLE(R) CD-ROM.
# based on code by Mark Wutka <mark@wutka.com>

# Copyright (C) 1999, John J. Chew, III <jjchew@math.utoronto.ca>
# All Rights Reserved.

open(TWL, "STRINGS.DAT") || die "Where is STRINGS.DAT ($!)?  Aborting";
$/ = "\0";
print grep(/ /&&s/$/\n/, <TWL>);
close(TWL);