#!/usr/bin/perl 
use strict;
use Digest::MD5 qw(md5);

my %line;
while (<>) {
        my $digest = md5($_);
        unless ( exists $line{$digest} and $line{$digest} == length ) {
                $line{$digest} = length;
                print;
        }
}