in reply to seek and replace for exceptional characters
Using the quotemeta function is the simplest solution. But so that you understand the underlying reason, your search regex could also be defined as follows (simply escaping the '+' sign):
my $A = qr (\+#);
In Section
Seekers of Perl Wisdom