Help for this page
<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$/