Select Code to Download

#!/usr/bin/perl

...

my $first = /(BA[ABC]{2})|(CA[CD]{2})|DA[SC]{2}/ ? $1 ? 1 : $2 ? 2 : 3
+ : 0;
print "first is $first\n";

first is 2