#!/usr/bin/perl # Time-stamp: "2005-08-19 01:14:16 ADT" # desc{ catenate HTML files to standard output } # # cat-html -- catenate HTML files to standard output. # just like cat, except that it comments-out HEAD, BODY, etc., tags from # the input files # sburke@cpan.org, 29 July 1996. print "\n"; while (<>){ s/<(\/?)(HTML|META|HEAD|BODY|TITLE|LINK)([^>]*)>//ig; print; } print "\n"; 1; # ## end