if( $host !~ /\./ ){
    print "Kein Punkt in $host\n";
}