Select Code to Download

$your_data =~ /\+Header1(.|\n+)-Header1\n\+Header2(.|\n+)-Header2\n\+H
+eader3(.|\n+)-Header3\n/;

while ($line = <your_file_handle>) {
  if($line =~ /^\+Header1/) { $header1 = 1; next }
...
 .
 .
}