# jdwang@thmu.edu.tw 2004.11.3

# $line = "表單編號 病歷號 病患姓名 生日 診間 檢體類別 工作號 簽收日 時間 報告日 時間 項目代碼 項目名稱"

my $line = "CM-T250 160510 0015851333 王大三 男 0430801 住 309 MICU Blood A890009083 0891229 1629 0900101 0947 105 血液培養blood (請用血瓶採檢) ";

my ($P1,$P2,$RemainInfo) = $line =~ /CM-T250\s+(\d+)\s(\d+)\s+(.+)/;
  

print $line."\n";  

print "============================================================\n"   		   
print $P1."\n";
print $P2."\n";

print "\n\n".$RemainInfo."\n";

print "============================================================\n" 
       		   
print $P1."#".$P2."#".$RemainInfo."\n";