#!/usr/bin/perl
use warnings;
use strict;

my @inarr = (
             'stuff{tag}<igo;123>stuff<ig;abc>',
             '<igt;ddd>stuff blah {foo}',
             'stuff blah foo <igxo;dsldkd.eps>',
             '<igt;aaa>stuff blah <igx;hhh>',
            );

my $re = qr/( < (?: ig | igt | igo | igxo ) ; .+? > )/x;
for my $lin (@inarr) {
    my @g = $lin =~ m/$re/g;
    print join ' ', map "[$_]", @g;
    print "\n";
}