my($re,$lin,@g,@inarr);
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>'
);
$re='<(ig|igt|igo|igxo);.+?>';
foreach $lin (@inarr)
{
@g=($lin=~m/$re/g);
} # foreach