Help for this page
if ( /(^\s?>)(.*)$/ ) { print "$2\n"; ... sub createTable { print $_; }
apples >apples ... >trees etc.. >etc..
apples apples ... trees etc.. etc..