c:\@Work\Perl>perl -wMstrict -le
"my @matches = (qr/abcdef/, qr/abfdef/);
 ;;
 for my $line (qw(xxxx abcd abcdef xabcdefx xabcdefxabfdefx)) {
   if ($line ~~ @matches){
     print qq{match for '$line'};
     }
   else {
     print qq{NO match: '$line'};
     }
   }
"
NO match: 'xxxx'
NO match: 'abcd'
match for 'abcdef'
match for 'xabcdefx'
match for 'xabcdefxabfdefx'