#!usr/bin/perl

use strict;

my $headrow="<Tr><Tc>At transplantation (POD 0) (n<26>73)<Tc>Early stage (POD 2) (n<26>34)<Tc>Late stage (POD 28) (n<26>25)";
my $str= "<</PICK;t1;0;0;page>>
<<tt>>TABLE<ens>1.
<mc>Histologic assessment of the liver and islet after transplantation: comparison among each time points in histologic changes 
<starttab;1;4><dumline>Islet: cellular infiltration<nx>At transplantation (POD 0) (n<26>73)<nx>Early stage (POD 2) (n<26>34)<nx>Late stage (POD 28) (n<26>25)<enddum>
<Tr><Tc>At transplantation (POD ) (n<26>73)<Tc>Early stage (POD 2) (n<26>34)<Tc>Late stage (POD 28) (n<26>25)
<Tr>Liver: necrosis<Tc>Liver: necrosis<Tc>23/34 (0.68 <22>0.08)<itsup;a,b><Tc>0/25 (0 <27>0)
<Tr>Liver: hypoxia<Tc>Liver: necrosis<Tc>24/34 (0.71 <27>0.08)<itsup;a,b><Tc>0/25 (0 <27>0)
<Tr>Liver: apoptosis<Tc>Liver: necrosis<Tc>223/34 (0.68 <27>0.08)<itsup;a,b><itsup;a,b><Tc>0/25 (0 <27>0)
<Tr>Islet: cellular infiltration<Tc>Liver: necrosis<Tc>15/34 (0.44 <27>0.09)<itsup;a,b><Tc>0/25 (0 <27>0)
<Tr>Islet: apoptosis (%)<Tc>Liver: necrosis (POD)<Tc>62.00 - 7.41<itsup;a,b><Tc>0 <27>0<endtab> 
<<tabft>>Histologic change score was indicated as islet numbers accompanied with histologic change (necrosis, hypoxia, apoptosis, and cellular infiltration)/total islet numbers (mean score<27>standard error of the mean), except islet apoptosis (%). Islet apoptosis (%) was indicated as the percentage of apoptotic to total islet cells. <904>n<905> is total islet number. 

<mc><itsup;a>Significant difference (<mdit>P<med><178>0.05), at the early stage vs. at transplantation. 

<mc><itsup;b>Significant difference, at the early stage vs. at the late stage. 

<mc>POD, postoperative day.</.>";

my $tr="<Tr><Tc>At transplantation (POD 0)";

if ($str=~m/$tr/g) {
	print "$headrow\n";
}