#!/usr/bin/perl -w

use strict;

while (<>) {
	print "$1\n" while /<(.*?)>/g;
}
