if ( /(^\s?>)(.*)$/ ) { 
	print "$2\n";
	&createTable($2);
	next;
}

sub createTable {
	print $_;
}