#!/usr/bin/perl
open FILE, "/home/guest/align.txt";
my @arr123;
local $/ = '';
@arr123 = <FILE>;	#output file.
print "<pre>";
#print @arr123;
$array=join('',@arr123);
@arr=split(/\n/,$array);
foreach $a(@arr){
	if($a=~/>/ || $a=~ /Length/ || $a=~ /Score/ || $a=~ /Identities/){push (@header,$a);}	#header information.
	if($a=~/^Query/||$a=~/           /||$a=~/^Sbjct/){push(@lin,$a);}		
}
foreach(@header){print $_,"\n";}
foreach(@lin){print $_,"\n";}