perl择一匹配

#!/usr/bin/perl
foreach ( qw(fred betty barney dino)){
    if (/fred|barney/){
        print "$_ matched\n";
    }
}