my @array;
while ( my $line = <FILE> ) {
  if ( $line =~ /\<TAG\>(.*)\<\/TAG\>/ ) {
    push @array, $1;
  }
}