sub convert {

    my $line = shift;
    my $legal_chars = 'OK';
    $line =~ s/ [^$legal_chars]/X/g;
    return $line;

}