my $thes530 = qr/thes530-....\.otenet\.gr/;
my $millenium = qr/millennium-....\.ccf\.auth\.gr/;

my $regex = qr/$thes530|$millenium/;

if ($host =~ /$regex/) {
    print "Yay!\n";
}