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.