perl 正則表達式 匹配字符串 或邏輯

mark，備忘

#!/usr/local/bin/perl

use strict;
use warnings;

my @data=qw(
    nihao
    wohao
    );
foreach(@data){
    if($_ =~ /^(ni|wo)hao$/){
        print $_
    }
}

perl正則表示式的備忘
http://www.runoob.com/perl/perl-regular-expressions.html