Select Code to Download

Sample in.txt
BEGPUB Wirey Haired Dog's Life ENDPUB
BEGTITLE My dog has wirey hair ENDTITLE
BEGTXT My wirey hair dog...blah, blah. ENDTXT

#!/usr/bin/perl -w

...
        }
close INFILE;
close OUTFILE;