use strict; use warnings;

read(DATA, $_, 1024);
print join "\n", m/<.*?>/g;

__DATA__
Once <a href="foo.html">upon</a> a time there was a
<font color="#FF0000">CODE <b>RED</b></font> situation.

##</code><code>##

use strict; use warnings;

while (<DATA>) {
    print $&."\n" while m/<.*?>/g;
}

__DATA__
Once <a href="foo.html">upon</a> a time there was a
<font color="#FF0000">CODE <b>RED</b></font> situation.