Select Code to Download

$ for i in A B C; do echo -e "\n*** $i"; cat $i; echo '----';  cat -ve
+t $i; done

...
word^I27$
blah^I23$
life^I42$

#!/usr/bin/env perl

...
for my $key (sort { $data{$a} <=> $data{$b} } keys %data) {
    printf $fh $out_fmt, $key, $data{$key};
}

$ cat merge_count.out
yada    3
...
bar^I70$
word^I81$
foo^I146$