Help for this page

Select Code to Download

Select or download this
```
> perl -wle '
q(foo) =~ m/.*/;
...
```

Select or download this

> perl -le ' my $incr = 0;
q( print $incr++, $& and " stew" =~ /.*/ and eval $& until $incr > 10)
+ =~ /.*/;
...

  eval $&;  # prints '0 ( guesswhat) '..'10 stew' (versions differ on 
+-w)