my $string = '
not_show_1
show_1
not_show_2
show_2'; $string =~ s!]+>[^<]+!!g while($string =~ m/]+>/); print $string . "\n";