while(<>){
  chomp;
  if ($_ =~ /srcsent: /){
    $cand = $_;
  }
  elsif ($_ =~ /tgtsent: /){
    if ($_ !~ /tgtsent: $/){
      print $cand . "\n";
    }
  }
}