if ($a =~ m/^(1|3|12|44)$/xms) {
   print "matches\n";
}

Performance gegenüber den anderen Lösungen müsste man dann noch kurz benchmarken.