if( index $host, '.' == -1 ){
    print "Kein Punkt in $host\n";
}