if( $line =~ /\s+<\w+\/?>(.*)<\/\w+>/ )
    {
        $line = $1;
        print "$line\n";
    }
    else
    {
        print "no match\n";
    }

##</code><code>##

First_Table
no match