Help for this page

Select Code to Download

Select or download this
```
  if (condition) { $foo=0; $bar++; }
```

Select or download this

open FOO, '<', $filename;
while (<FOO>) { chomp;
   my ($bar, $baz, $quux) = $_ =~ /someregex/;
   push @quux, [$foo, $baz, $quux] if $quux;
} close FOO;