Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use v5.36;
...
}
say "Captured: '$_'" for @captured;
say "Left with '$x'";
  2. or download this
    Captured: 'foo2'
Left with 'xyzzy'
  3. or download this
    Captured: 'foo1'
Captured: 'foo2'
Left with 'xyzzy'