in reply to Match the starting \>

Just if($lines =~ m/<|>/)

In Section Seekers of Perl Wisdom