RosettaCodeData/Task/Find-the-missing-permutation/Perl/find-the-missing-permutation-2.pl

print eval join '^', map "'$_'", <>;