my %dict;
open D,"</usr/dict/words";
while(<D>){
  chomp;
  $dict{lc($_)}=$_;
}
close D;

my $text='Is there anyway to write a spell checker in perl?? Please help.';
my @words=split /[^a-zA-Z0-9']+/,$text;
foreach (@words){
  if(!defined $dict{lc($_)}){
    print "\"$_\" is not in the dictionary\n";
  }
}