my $out; while () { if(/addr:0x[0-9a-f]+([0-9a-f])/) { $out = ($1 =~ /[02468ace]/)? $OUT_FILE0 : $OUT_FILE1; } print {$out} $_; }