in reply to Using a regex search pattern

You probably want something like this: 
push @ind, $file =~ /<BOXIND NUM=".+?" ID="(.*?)"\/>/g;

[download]

In Section Seekers of Perl Wisdom