Help for this page

Select Code to Download

Select or download this

while (<>) {
   my ($key) = /^(..)/s;
   print if !$seen{$key}++;
}