foreach $line(@source_array) {
   $line =~ s/<.*?>//g;
   push @target_array, $line;
}