1#!/usr/bin/perl -nl
2# Use Perl's multi-byte alignment code, via sprintf, while
3# performing a rudimentary check for duplicate names and
4# removing duplicate name,email pairs.
5use Encode;
6
7BEGIN { my (%seen, %name) }
8
9chomp;
10my ($name, $email) = split '\0', decode ('UTF-8', $_);
11
12$seen{$name}++
13  and warn "$0: THANKS.in: duplicate name: $name\n";
14
15print encode ('UTF-8', sprintf ('%-36s', $name)), $email
16  unless $seen{"$name\0$email"}++;
17