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