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

##</code><code>##

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