Исправление AITap, (текущая версия) :
То, что хочет ТС ('строка1' OR 'строка2'), я бы сделал анонимными массивами, а не строками:
$ perl -M5.014 -E'for("абыв"){say 1 when [qw/124 567/]; say 2 when ["абыв", "абыр"];}'
2
Впрочем, возможность бесплатно использовать regexp'ы в switch - это отличная добавка.
Исходная версия AITap, :
То, что хочет ТС ('строка1' OR 'строка2'), я бы сделал анонимными массивами, а не строками:
perl -M5.014 -E'for("абыв"){say 1 when [qw/124 567/]; say 2 when ["абыв", "абыр"];}'
2
Впрочем, возможность бесплатно использовать regexp'ы в switch - это отличная добавка.