$key = 'ok382937_'; # kann auch sein: error9302_

($status, $value) = $key =~ s/(ok|error)(\d+)_/$1,$2/e;

print "Status: $status\nSchluessel: $key\n";