$sample = "Perl";
while(<>){
　if(/^\.\.\..*\[$sample\]/){　# もし行頭に...がある場合
　　　$title=$_;
　　　print "$title";　　　　# タイトル行の出力

　　　while(<>){
　　　　　if(!/^\..*/){　　　 # もし行頭に.が無い場合
　　　　　　　$body=$_;
　　　　　　　print "$body";　# 本文の出力
　　　　　}
　　　　　if(/^\..*/){　　　　# もし行頭に.がある場合
　　　　　　　last;
　　　　　}
　　　}
　}
}