>DATA SET 1
HSAJDHSDHSADHDSALHDASLDHSALDH
HGDKJSHDSADHSALDHLHLDHASDLSAH
HKJAHCADHALIDHALSDHLSADHALHDA
>DATA SET 2

##</code><code>##

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