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.