Select Code to Download

/^Sen = (\S+).*/;
$sen = $1;
...
$acc = $1;
/^Cor = (\S+).*/;
$cor = $1

$sen = $1 if /^Sen = (\S+).*/;
$acc = $1 if /^Acc = (\S+).*/;
$cor = $1 if /^Cor = (\S+).*/;

push @array, $sen, $acc, $cor;