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