use List::Util qw( uniq );
BEGIN{$, = ";"};

my @allmatch;
while(<>){
    chomp;
    my @matches = m|<([^\s/]+?)[>\s]|g;
    push @allmatch, @matches;
}
my @res = uniq(sort(@allmatch));

print @res;