Re^3: Parsing Text from Object Header that prints to STDOUT

I like davidrw's idea, though I have never used it myself. This also works, if you have v5.8.x:

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+)/;
[download]

the lowliest monk

Comment on Re^3: Parsing Text from Object Header that prints to STDOUT Download Code