Help for this page

Select Code to Download

Select or download this
```
...
if (/^[^yhnujmikolp]+$/i) {
...
```

Select or download this

@ARGV = qw(/usr/dict/words);
my $longest = "";
...
  $longest = $_;
}
print $longest;