undef $/; # so <> will sluurp each file on the command line into $_

$\ = "\n";
$, = " ";

print /Sen = (\S+)/, /Acc = (\S+)/, /Cor = (\S+)/ while <>;