next if $foo =~ /^#/;
  if ( $foo =~ /^(?:this|that|or|something|else)$/ { ... }