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

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

while (<>) {
    print { $|-- ? $g : $u } $_;
}