in reply to regeex question

Hello Nik,
if the characters you x'ed out are useful for you, you can extract them in the match if you use parenthesis:
if ($host=~m/thes530-(\w+)\.otenet\.gr/) { my $info = $1; }
I forgot, you have to escape the "." or it matches any character.