my ( $aln2, $buf );
{
  local *STDOUT;
  open( STDOUT, '>', \$buf ) or die "Write to buffer failed\n";
  $aln2 = $factory->align($seq_array_ref);
}
# find desired line in $buf
my ($score) = $buf =~ /SCORE (\d+)/;