#! /usr/bin/perl
while ($line = <STDIN>)
{
	if ($line =~ /<(.*)>/)
	{
		print ($1."\n");
	}
}