#!/usr/bin/perl -w use strict; while() { next if //gi; next if /<\/HTML.*?>/gi; print; } __DATA__ Homepage man blah.pl
man blablablah.sh
man blablablablah.sh