Help for this page

Select Code to Download

Select or download this
```
CONDITION and ACTION;
```

Select or download this

# maybe replace @ARGV below with my(@A)=@ARGV or similar, as we destro
+y the array
while($_=$ARGV[0]){
...
   /^--?$/o              and do{shift;             ...; last}; # early
+ loop exit
   last;
}