if( /^\s*>/ ) { print "$'\n"; createTable( $' ); } sub createTable { print shift; }