#!/usr/local/bin/perl -w
while(<>) {
undef @a;
@a=split;
$title='';
$b=$#a-1;
for $i (0..$b) {
	$title .= $a[$i]." ";
}
#print "<LI><a href=\"CD/$a[$#a]\">$title</a>\n";
print "$a[$#a]\n";
}