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