#!/usr/bin/perlforeach ( qw(fred betty barney dino)){ if (/fred|barney/){ print "$_ matched\n"; }}
perl择一匹配
原文：https://www.cnblogs.com/shunguo/p/13549422.html
