Select Code to Download

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

...
    print "pass: $_" if /^$tuple*1,1\b/;
    print "fail: $_" if /^$tuple*1,2\b/;
}