Select Code to Download

   <table width=\"100%\"><thead>
     <tr><th></th></tr>
...
     <tr><td></td></tr>
   </tbody></table>

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/