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