#!/usr/bin/perl

#use strict;

my $line;
while ( <DATA> ) {
   chomp;
   $line = $_;
   $line =~ /\s+<\w+\/?>(.*)<\/\w+>/;
   $line = $1;
   print "$line\n";

}

__DATA__
    <Table>First_Table</Table>
    <Table/>

Output :-
First_Table
First_Table

##</code><code>##

if [jesuashok];
--$exp;

__END__