Select Code to Download

$ cat > pm_1075438_1.txt
qw<er ty>
...
123> <456

$ gzip pm_1075438_2.txt

#!/usr/bin/env perl

...

use Data::Dump;
dd \%h;

{ 123456 => 1, asdfgh => 1, qwerty => 1, zxcvbn => 1 }

++$h{$_} for map { chomp; s/[<> ]//g; $_ } `zcat @{[glob '*.gz']}`;