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