foreach (keys %global_variables) {
   $content =~ s/\$\($_\)/$global_variables{$_}/g;
}

##</code><code>##

$content =~ s/\n/\n$indent /g;

##</code><code>##

$text =~ s/\n.*/ [more\.\.\.]/s;