my $Are = join '(.*?)', '^', (map "($_)", $A =~ /(.)/sg), '$';