Help for this page

Select Code to Download


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