use strict; use warnings; my $a = <>; my $b = <>; chomp $a; chomp $b; $a =~ s/^.*(.)$/$1/; $b =~ s/^.*(.)$/$1/; if ($a eq "1" and $b eq "1") { print "Odd\n"; } else { print "Even\n"; }