#!/usr/bin/env perl use strict; use utf8; use warnings; my ($va,$vc) = split/ /,<>; my $vb = int($va) ^ int($vc); printf $vb . "\n";