while( $input_txt =~ s/\<.*?\>//gs ) {};