##
## 'Globale' Variablen
## 'cre': 'compiled regular expression' with qr//;

our $nbsp = ' ';
our $creUnmangleNbsp = qr#\@\@\@\@ ~~~~#sio;
our $creMangledBrackets = qr#~~~~(\/*.*?)\@\@\@\@#sio;

##
# in Funktion:
foreach my $token ( @$refNewtokens ) {
    ## WAS: $token =~ s/\@\@\@\@ ~~~~/ /sig;
    $token =~ s/$creUnmangleNbsp/$nbsp/go;
    $token =~ s/$creMangledBrackets/<$1>/go;
} ## end foreach