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

local $_ = join '', <>;
my %h = map { $_, '' } reverse =~ /\w+/g;
delete @h{ /\w+/g };
print %h, "\n";