in reply to Re^2: Perl Regex
in thread Perl Regex

my ($marker, @pairs) = split;
my $c = 0;
while (@pairs) {
  ++$c;
  my ($thing1, $thing2) = splice(@pairs, 0, 2);
  print "$marker $c $thing1 $thing2\n";
}

[download]
We're not really tightening our belts, it just feels that way because we're getting fatter.

In Section Seekers of Perl Wisdom