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

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