use strict;
use warnings 'all';
use constant {
    EMAIL => 17,
    CONTACTME => 27,
    SKUTITLE => 34
};

{
local $, = "\t";
local $\ = "\n";
print @$_ for
    sort { $a->[0] cmp $b->[0] }
        grep { $_->[1] }
            map {
                chomp;
                [
                    map { substr $_, 1, -1 }
                        ( split "\t" )[ SKUTITLE, CONTACTME, EMAIL ]
                ]
            } <>;
}