my $left_bracket = chr(123); 
$formatline =~ s/\{/$left_bracket/g;

##</code><code>##

my $left_bracket = "{";
$formatline =~ s/\{/$left_bracket/g;

##</code><code>##

my $left_bracket = '{';
$formatline =~ s/\{/$left_bracket/g;