#! /usr/bin/perl
use strict;
use HTML::Parser;

my @links;
my $string = qq~
<small>
    <b>fetter text</b> Ein anderer Text
    <i>kursiver text</i> text
</small>~;

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,self");
$p->parse($string);

foreach my $link(@links){
  print "Tag:\t",$link->[0],"\nText:\t",$link->[1],"\n\n";
}

<>;

sub start_handler{
  my $tag	= shift;
  my $self = shift;
  my $text;
  
  $self->handler(text => sub{$text = shift;}, 'text');
  $self->handler(end => sub{push(@links,[$tag,$text])});
}

Tag:    b
Text:   fetter text

Tag:    i
Text:   kursiver text

Tag:    i
Text:    text

Tag:    small
Text:   <b>fetter text</b> Ein anderer Text<i>kursiver text</i> text

Tag:    b
Text:   fetter text

Tag:    i
Text:   kursiver text