in reply to seek and replace for exceptional characters

Use quotemeta: 
my $A= quotemeta '+#';

[download]

In Section Seekers of Perl Wisdom