12345
$key = 'ok382937_'; # kann auch sein: error9302_($status, $value) = $key =~ s/(ok|error)(\d+)_/$1,$2/e;print "Status: $status\nSchluessel: $key\n";