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 = '<(ig|igt|igo|igxo);.+?>';

for my $lin (@inarr) {
    my @g = ($lin =~ m/$re/g);
}