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