Merci pour ton aide, mais j ai tro essayer et ça marche pas
j ai pris des scripts de html::parser mais ça marche je ne sais pas comment ça fonctionne ex:

#!/usr/bin/perl
use strict;
use warnings;

use LWP::Simple;
use HTML::Parser;
use HTML::Form;

my $page = get( "lien");

# création de mon parser
my $parser = HTML::Parser->new();

# définition des mes evenements
$parser->handler( text => \&text, "text" );
$parser->handler( start => \&start, "tagname,attr" );
$parser->handler( end => \&end, "tagname" );

$parser->parse($page);

print &get_data();

parser->eof;
{
my $in;
my @data;

sub start {
my ($tag, $attr) = @_;
$in++
if $tag eq 'div'
and exists $attr->{id}
and $attr->{id} eq 'profilename';
}

sub end {
my ($tag) = @_;
$in-- if ($tag eq 'div' and $in='1');
}

sub text {
my ($text) = @_;
push @data, $text if ($in );
}

sub get_data {
#print "in : ".$in;
return @data;
}

}
exit;

mais ça ne me donne rien

Ok merci meme si je suis pressée mais c'est gentil de ta part je ne veux pas quand meme te deranger,bonne chance