#!/usr/bin/perl
use strict;
use warnings;

my @regexs = 
        ('BB[CDA]BFBB','CDABFBB'
        );
  for my $regex (@regexs)
  {
           if($regex =~ /A[A-Z]F/)
      {
                        print "$regex \n";
      }
  }