#!/usr/bin/perl
use strict;
use warnings;

open my $u, ">ungerade" or die $!;
open my $g, ">gerade" or die $!;

while (<>) {
     print { 1 & $. ? $u : $g } $_;
}