Suche nach Zahlen

[jonny]

Guten Morgen,

kann mir jemand ein Beispiel geben, wie folgendes komfortabler geschrieben werden kann?

my $nmb="11";

if($nmb=~/^1$|^4$|^8$|^12$/) {
   print "Zahl ist 1, 4, 8 oder 12\n";
}
else {
   print "Zahl ist nicht 1, 4, 8 oder 12\n";
}

Für Hilfe wäre ich Dankbar.

Mfg,
Jonny