#!/usr/bin/perl
use strict;
use warnings;

my $char = '\\';
my $str = 'bla';
$str =~ s/\Q$char\E?$/$char/;
print "$str\n";