Select Code to Download

#Capture header

...
if ($line =~ /^>.+$/ ) {
  $header = $&;  }
}

$number = 1 ;
foreach  (@array) {    
...
$_ =~ s/\n+/\n/g ;     
}