Select Code to Download

my($re,$lin,@g,@inarr);
my(@inarr)=(
...
{
@g=($lin=~m/$re/g);
} # foreach

@g=('<igo;123>',
'<ig;abc>'
);

@g=('ig');