#!/usr/bin/perl


while (<STDIN>) {
	$time = $_;
	$time =~ s/.*tablaTime.*?>(.*?)<.*/\1/;
	chomp($time);

	$title = $_;
	$title =~ s/.*tablaSubject.*?>(.*?)<.*/\1/;
	chomp($title);


	print "$time $title ";
}

print "\n";