sub convert {

    my $line = shift;
    my $legal_chars = 'O|K';

# wie negiere ich '$legal_chars' ??? ###
    $line =~ s/ ??? $legal_chars/X/g;
########################
    return $line;

}