You could also change your push line to:

   push @newlines, s/\Q$A\E/$B/rg for @lines;
[download]

(the \E is optional in this case, as the quoted variable is the last thing in the RE) to handle the quotemeta within the search/replace itself. See perlre for more information.

Update: Add clarification for my 'optional' comment.