my $A= quotemeta '+#';