Matching patterns with or

corfuitl has asked for the wisdom of the Perl Monks concerning the following question:

Dear Perlmonks

Applying the following code

while ($_ =~ /({\d+})/ || $_ =~ /({\w+&gt;)/ || $_  =~ /(&lt;\w+})/){
  print "$1\n";
}
[download]

to this text

This is <i} a test {i> sentence <i}

I get

{i> <i} <i}

Is there any way to get them according to their occurrence? So,

<i} {i> <i}

Thanks