Select Code to Download

#!/usr/bin/perl

...
}
say "Captured: '$_'" for @captured;
say "Left with '$x'";

To Go 'xxxxyyyyyyyxxyy'
To Go 'xxxyyyyyyxy'
...
Captured: 'xy'
Captured: 'xy'
Left with 'yyy'