Select Code to Download

use strict;
use warnings;
my $s = "foo bar baz qux 3 3 1 3";
...
while (@a) {
    print (shift @a), (shift @a), "\n";
}

33
13

31 # and no newline!