Help for this page

Select Code to Download

Select or download this
```
if ( $line =~ /[^\s]XY/ ) { ... }
```

Select or download this

while ( <FILE> ) {
    next if /^\s/;
    # process lines without leading whitespace here ...
}