Match 1,1 or 1,2 after an even number of commas:

my $tuple = qr/\d*,\d*,/;

while (<DATA>) {
    print "pass: $_" if /^$tuple*1,1\b/;
    print "fail: $_" if /^$tuple*1,2\b/;
}
[download]