sub add_tags { my ( $self, $text ) = @_; return unless $self->_valid_text( $text ); my @text = $self->_clean_text( $text ); my $t = $self->{'current_tag'}; # shortcut ### I am getting this in this line: ####### my ( @tags ) = map { $t = $self->_assign_tag( $t, $self->_clean_word( $_ )) || $self->{'unknown_word_tag'} || 'nn'; "<$t>$_" } @text; $self->{'current_tag'} = $t; $self->_reset; return join ' ', @tags; }