This may do it for you:

use strict;
use warnings;

my $variable = 3;

if ($variable =~ /\b(?:1|2|3)\b/)
  {
  print "case 1, 2 or 3\n"
  }
[download]

Prints:

case 1, 2 or 3
[download]