#!/usr/bin/perl
$\="\n";
while (<>) {
    while (m/\<(\w+)/) {
        print($1) || die $! unless $done{$1}++;
        $_=$';
    }
}
close(STDOUT) || die $!;
