my $Are = '^(.*)' . join('(.*)', @A) . '(.*)$';