$text =~ s/<.+?>//g;
push @array, $text;