Select Code to Download

>DATA SET 1
HSAJDHSDHSADHDSALHDASLDHSALDH
HGDKJSHDSADHSALDHLHLDHASDLSAH
HKJAHCADHALIDHALSDHLSADHALHDA
>DATA SET 2

 if ($string =~ /^\>/){
  next unless $string =~/^\>/;
  push @array, $string;
 }