[Israel.pm] Doing it the perlish way

[Yossi.Itzkovich at ecitele.com]

Hi,

I have this simple script, that acts as interactive grep on /usr/dict/words file.  Is there more "perlish" way to write it ?

Thanks



#! /usr/local/bin/perl -w
my $dict="/usr/dict/words";
open (DICT,$dict) or die "can't open $dict";
my @dict=<DICT>;
while (<STDIN>)
  {
    chomp ( my $pat=$_);
    $pat eq "END" and exit;
    print "pat=$pat.\n";
    print ( join ("," ,grep ({ /$pat/} @dict)),"\n");
  }