12345678
sub convert { my $line = shift; my $legal_chars = 'OK'; $line =~ s/ [^$legal_chars]/X/g; return $line;}