ls -1 */dali/aln.html | perl -ne 'chomp; my $f=$_; open(F, $f) || die "Cannot open $f : $!\n"; my @qlines=(); my @slines=(); while(<F>) { push(@qlines, $_) if /^Query /; push(@slines, $_) if /^Sbjct /; last if /\<\/PRE\>/;  } close(F); $f =~ /^(.*?)\/dali\/aln\.html/ || die "Weird file name $f\n"; my $dir=$1; my $fout = "$dir\/dali.aln"; print "fout=$fout\n"; open(FOUT, "> $fout") || die "Cannot open $fout : $!\n"; for $i(0..$#qlines) { print FOUT ($qlines[$i], $slines[$i], "\n"); } close(FOUT); '