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