Select Code to Download

#!perl -w
use strict;
...
while (<>) {
    print
};

if (/^Article\b/) {
    s/\s*$//; # remove trailing whitespace and newlines
    print "Line [$_] is a heading.";
};

$_ = "Article 1 News";
print "\\subsection*{$_}";