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

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