print "$_\n" for map {
    if (( "." x $_ ) !~ /^(..+)\1+$/) {
        if ( $_ & 1 ) {
            "Ungerade Primzahl: $_"
        } else {
            "Gerade Primzahl: $_"
        }
    } else {
        "Keine Primzahl: $_"
    }
  } 2 .. 10;