#!/usr/bin/perl

# http://perlmonks.org/?node_id=1212655

use strict;
use warnings;

my $draw = 2;
my $from = 3;

my $pattern = '(2+?)' x $draw;
(2 x $from) =~ /^$pattern(??{print "@+[1..$draw]\n"})/;