>>649
タイトルに$sampleを含むデータが連続してると、偶数番目のデータが表示されない。
二重ループでもできるが、単ループでフラグ使った方が簡単かと。

my $target;
while (<>) {
　/^\.{3}/ and $target = /\Q[$sample]/;　　# 行頭が...なら対象データか判断
　print if $target;　　# 対象データなら出力
}