> perl my @x=1..10; my @re=qw/ 3 7 1 /; sub check { for my $re (@re) { return 1 if $_ =~ /$re/ } return 0; } print grep &check, @x; __END__ 13710