Select Code to Download

@lines = split(/\n/, $para);
if (@lines == 1) # A Heading
...
$lastHeading = $lines[0];
next;
}