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