#!/bin/perl -w use strict; # slurp it up $/=''; my $slurp = ; # one nice string might as well split it # adding a little whitespace gobble and case protection my @stuff = split(/\s*<\s*[Hh][Rr]\s*>\s*/,$slurp); # and spit it out foreach (@stuff) { print $_,"\n"; } __DATA__

1 is good
useless data
useless data
useless data
useless data

2 is not good
useless data
useless data
useless data
useless data

3 is good
useless data
useless data
useless data
useless data

4 is not good
useless data
useless data
useless data
useless data