1) odd or even

if ($num % 2 == 0) {
    #even
}
else {
    #odd
}
[download]

2) you'll probably have to use the eof() instead of < >

while(!eof(FILE1) && !eof(FILE2) {
   my $file1 = <FILE1>;
   my $file2 = <FILE2>;
}
[download]

You'll have to deal with the condition where one file is longer than the other below this while.

3) if localized it will alter the subsiquent reads for only that pass through the loop.

my @eol = ("\n","\t","\r"); # etc, etc
while(<FILE>) {
    local $/ = shift @eol;
    my $line = <FILE>;
}
[download]

First line ends with "\n", second line ends with "\t", third ends with "\r", and so on.

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"