if ( $line_test=~/<!-- 1st table -->\s*(.*?)\s*<!-- \/1st table -->/g){print $1;}