Help for this page

Select Code to Download

Select or download this
```
my @lines = <FH>;
```

Select or download this

if ($file =~ /[aeiou]{2}/i) {
    print $file;
}