if ($content =~ m/<SessionID>.{8}-.{4}-.{4}-.{4}-.{12}</SessionID>/) {
print "ok" . $1;
} else {
print "error";
}
nicht angemeldet nicht angemeldetif ($content =~ m/<SessionID>.{8}-.{4}-.{4}-.{4}-.{12}</SessionID>/) {
print "ok" . $1;
} else {
print "error";
}