#!perl -w
use strict;

# loop through the file
while (<>) {
    print
}; 

##</code><code>##

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

##</code><code>##

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