#!/usr/bin/perl

use strict;
use warnings;

undef $/;
$_ = <DATA>;

print "$1 $2 $3\n"
  while /Sen = (\S+).*?Acc = (\S+).*?Cor = (\S+).*?/sg;

__DATA__

Sen = x1
Acc = y1
Cor = z1
Sen = x2
Acc = y2
Cor = z2

Sen = x3

Acc = y3
Cor = z3

 Filler

Sen = x4
Acc = y4
Cor = z4