Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    }
    say "Captured: '$_'" for @captured;
    say "Left with '$x'";
    
  2. or download this
    To Go 'xxxxyyyyyyyxxyy'
    To Go 'xxxyyyyyyxy'
    ...
    Captured: 'xy'
    Captured: 'xy'
    Left with 'yyy'